|
初めて投稿させていただきますサッサと申します。早速なのですが、
c:\data\hk\hokkaido_001.xls
\hokkaido_002.xls
\hokkaido_003.xls
....
\hokkaido_027.xls
c:\data\hokkaido_total.xls
のようなdataフォルダ内にある全エクセルファイルのsheet1のセルL2のデータを抽出してhokkaido_Tatol.xlsのB列に順に並べていって上書き保存するといったことをしたいのですが、何か手がかりを教えていただけないでしょうか。
実際の作業としては各ファイルが順次増えていき、その都度結果を集計したいのですが。
将来的には上記のようにL2セルだけでなく、セルL3をC列に、セルZ15をD列にといった具合に、はたまた、理想は抽出するセルおよび集計したデータの列を指定できるようしたいです。
試しに2つほど実際にファイルを開いて抽出作業をマクロ保存(下記)して、再現したところ、うまくいきませんでした。たぶん、ファイルを開くという命令がないように見えるのですが、、、、
何となく似ていそうな[#7341]さんスレッドで出てきたものを闇雲に試したところ
「Workbooks.Open FileName:=... のところで「読み取り専用です。アクセスできません」とエラーがでてしまいます。ちなみにOSはxp_proでフォルダの属性を変えることができなさそうです。また、excel2000で動かしています。
何でもかまいませんのでアドバイスいただけないでしょうか。よろしくお願いします。
Sub Macro1()
Range("L3").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Book1").Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.LargeScroll ToRight:=-1
Range("L3").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Book1").Activate
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|
|