Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6274 / 76734 ←次へ | 前へ→

【76062】CSVファイルの中身をエクセルに落としたい!
質問  彼方  - 14/9/12(金) 1:48 -

引用なし
パスワード
   はじめまして。
よろしくおねがいします。

【こう動かしたい】
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

↑の処理が怪しいかなと思ったのですが、このソースにおかしい所はあるでしょうか?
宜しくお願いします。

4 hits

【76062】CSVファイルの中身をエクセルに落としたい! 彼方 14/9/12(金) 1:48 質問
【76063】Re:CSVファイルの中身をエクセルに落とした... 独覚 14/9/12(金) 10:10 発言
【76067】Re:CSVファイルの中身をエクセルに落とした... γ 14/9/12(金) 23:00 発言

6274 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free