EXCELマクロでxlsとxlsxを開く方法

質問

EXCEL マクロでxlsとxlsxを両方開く方法。
お世話になります。

エクセル　マクロについてです。

複数の注文書をひとつのブックにまとめるマクロを使用しています。
注文書は同一の書式で部分的にセルの内容が違うだけです。

今まではxlsの形式で対応をしておりましたが、最近、xlsxの形式も増えてきて
手間がかかるようになってしまいました。

For i = 0 To 100

sName = Format(i, "000")
On Error Resume Next
Set wb = Nothing
Set wb = Application.Workbooks.Open(sPath & sName & ".xls", UpdateLinks:=0)

現在は000から001、002、・・・・・・とファイルを順次開いていくのですが
xlsとxlsxが混在しても順番に読み込みができるような工夫はできないものでしょうか。

よろしくお願いします。

回答No.3

nayuta_lot · ベストアンサー

こんにちは

Dir(パス\ファイル名)を実行して、""が返ってきたらファイルが存在しません。

これをIFでsName.xls　と sName.xlsx　について調べて、存在する方
を開きます。

下記の例では、.xlsと .xlsxの両方のファイルがある場合には .xlsを
優先して開きます。

Sub Sample()

Dim sPath As String
Dim sName As String

Dim i As Integer

On Error Resume Next

sPath = "C:\Sample\"

For i = 0 To 100

sName = sPath & Format(i, "000")

If Dir(sName & ".xls") <> "" Then

Workbooks.Open sName & ".xls"

ElseIf Dir(sName & ".xlsx") <> "" Then

Workbooks.Open sName & ".xlsx"

End If

Next i

End Sub

お礼

ご回答いただきありがとうございます。

とても参考になりました。
既存のマクロに組み込むのに参考にさせていただきます。

>.xlsと .xlsxの両方のファイルがある場合には .xlsを
>優先して開きます。

このことを考えてませんでした。
勉強させていただきました。

ありがとうございます。

回答No.2

Hirorin_20

xlsとxlsxのファイルを読み込んで、ファイル名でオープンしたらよいでしょう。

お礼

ご回答いただきありがとうございました。
参考にさせていただきます。

ありがとうございます。

回答No.1

keithin

xlsとxlsxの必ずどちらかしか無いのでしたら，ある方を調べて開けば良いですね。

sub macro1()
dim i
dim myPath, myFile
dim myBook
mypath = "c:\test\"
for i = 0 to 100
myfile = mypath & format(i, "000")
myfile = myfile & iif(dir(myfile & ".xls") = "",".xlsx", ".xls")
set mybook = workbooks.open(filename:=myfile, updatelinks:=false)
next i
end sub

お礼

ありがとうございます。
ご返答が遅くなりすみませんでした。
大変参考になりました。

既存のマクロに組み込むのには少し修正が必要なので
参考にさせていただきます。

ありがとうございました。