|
はじめまして。
よろしくおねがいします。
【こう動かしたい】
1.バッチファイルにて作成したActiveDirectoryのユーザ一覧をCSVに落としたファイルがあります。
2.VBA(エクセル)にて、項目名、標題等を設定しているので、その中にCSVの中身を落としたい(日本語が不自由ですみません)(例でいうと△の部分にCSVの中身を入れたいのです)
(例)
標題:×社 社員一覧
名前 性別 年齢
△△ △ △
【困っていること】
CSVにデータは入っているのですが、いざVBAを実行するとCSVデータを入れたい所はいつも空っぽになってしまいます。なぜ、エクセルにCSVの中身がコピーされていないのでしょうか?
【ソース】
Dim cmd1 as string
dim csvname as string
dim i as long
WorkWs.Activate
If WorkWs.Range("A2").Value=""then
i=2
Else
hlast=WorkWs.Range("A1").End(xlDown).Row
i=hlast+1
End if
csvname=設定Ws.Range("C20").Value & "\date.csv"
With ActiveSheet.QueryTables.Add(Connection:=_"TEXT;"&csvname,Destination:=Cells(i,1))
.FieldNames = True
…以下延々と定義が続く
End With
Kill csvname
End sub
↑の処理が怪しいかなと思ったのですが、このソースにおかしい所はあるでしょうか?
宜しくお願いします。
|
|