前回の質問「複数のエクセルデータ上特定位置の値を一つのセルに」に対し、ベストアンサーを教えていただきました。その質問とご回答のポイントは次の通りです。
質問：
大量の同じフォーマットのエクセルファイル（Book1,Book2...）があり、それぞれのBookファイルの「NO.」シートのD6セルには番号が入っています。それぞれファイルでSheet1の特定のセル（例えばB4セル）の値を「データ」ファイルのSeet1にまとめたいです。「データ」ファイルのA列には「NO.」が入力されているので、Bookファイルの値はそれぞれ対応する番号の右側3番目のセルに移したいです。
ご回答：
sub macro1()
dim myPath as string
dim myFile as string
dim myNo as variant
dim myRng as range
on error resume next
application.screenupdating = false
mypath = "c:\test\" ’book1,2,3…の保存場所を指定する事
myfile = dir(mypath & "*.xlsx") ’拡張子を正しく指定すること
do until myfile = ""
workbooks.open mypath & myfile
myno = workbooks(myfile).worksheets("No.").range("D6").value
set myrng = thisworkbook.worksheets("Sheet1").range("A:A").find(what:=myno, lookin:=xlvalues, lookat:=xlwhole)
myrng.offset(0, 3).value = workbooks(myfile).worksheets("Sheet1").range("B4").value
workbooks(myfile).close savechanges:=false
myfile = dir()
loop
application.screenupdating = true
end sub
現在Excel2007を使っており、Bookファイルが全部(.xlsx)の状態では問題なく使えましたが、ファイルが97-2003の(.xls)バージョンになると、マクロを実行したときに次のメッセージが出ます。「データ.xlsmは既に開いています。2重に開くと、これまでの変更内容は破棄されます。データ.xlsmを開きますか?」
もちろんご回答の中の「myfile = dir(mypath & "*.xlsx") ’拡張子を正しく指定すること」は（"*.xls"）に変更されている状態です。
何が問題なのか全く分からず、困っています。どなたか教えていただけないでしょうか?
よろしくお願い致します。
前回の質問「複数のエクセルデータ上特定位置の値を一つのセルに」に対し、ベストアンサーを教えていただきました。その質問とご回答のポイントは次の通りです。
質問：
大量の同じフォーマットのエクセルファイル（Book1,Book2...）があり、それぞれのBookファイルの「NO.」シートのD6セルには番号が入っています。それぞれファイルでSheet1の特定のセル（例えばB4セル）の値を「データ」ファイルのSeet1にまとめたいです。「データ」ファイルのA列には「NO.」が入力されているので、Bookファイルの値はそれぞれ対応する番号の右側3番目のセルに移したいです。
ご回答：
sub macro1()
dim myPath as string
dim myFile as string
dim myNo as variant
dim myRng as range
on error resume next
application.screenupdating = false
mypath = "c:\test\" ’book1,2,3…の保存場所を指定する事
myfile = dir(mypath & "*.xlsx") ’拡張子を正しく指定すること
do until myfile = ""
workbooks.open mypath & myfile
myno = workbooks(myfile).worksheets("No.").range("D6").value
set myrng = thisworkbook.worksheets("Sheet1").range("A:A").find(what:=myno, lookin:=xlvalues, lookat:=xlwhole)
myrng.offset(0, 3).value = workbooks(myfile).worksheets("Sheet1").range("B4").value
workbooks(myfile).close savechanges:=false
myfile = dir()
loop
application.screenupdating = true
end sub
現在Excel2007を使っており、Bookファイルが全部(.xlsx)の状態では問題なく使えましたが、ファイルが97-2003の(.xls)バージョンになると、マクロを実行したときに次のメッセージが出ます。「データ.xlsmは既に開いています。2重に開くと、これまでの変更内容は破棄されます。データ.xlsmを開きますか?」
もちろんご回答の中の「myfile = dir(mypath & "*.xlsx") ’拡張子を正しく指定すること」は（"*.xls"）に変更されている状態です。
何が問題なのか全く分からず、困っています。どなたか教えていただけないでしょうか?
よろしくお願い致します。
