|
こんにちは。
VBA初心者です。
エクセルのインポートについて教えてください。
よろしくお願いします。
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=6470;id=excel
を参考にさせて頂き、作成しました。
やりたい点は、
1.インポート先を閉じていて、インポート元となるファイルを開いた状態でインポートしたい。
(インポート元にはシートが複数あり、そのときactiveのシートをインポートしたい。)
2.セルAからVの2行目からのデータをインポートしたい。
(インポート元、インポート先とも、1行目は列名を表示しているので、2行目から行いたい。)
3.インポート先のファイルにデータを蓄積していきたい。
この3点を行いたいと思っているのですが、
エラーが出てしまい、困っています。
間違いをご指摘願えますでしょうか?
よろしくお願いします。
インポート先となるファイルに作成しています。
Sub import()
With ThisWorkbook.ActiveSheet.Range("A:V")
.Formula = "=if(" & _
"'C:\インポート元ファイルの場所\[Data.xls]ActiveSheet'!A1=" & _
""""",""""," & _
"'C:\インポート元ファイルの場所\[Data.xls]ActiveSheet'!A1)"
.Value = .Value
End With
End Sub
|
|