Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10 Pro : Excel 2016)
txtファイルの変換
投稿日時: 21/07/19 14:53:30
投稿者: ぶくぶく

テキストファイルの取り込みには成功したのですが
"TEXT;D:\Tips.txt" の部分をセル参照にしたいのです。
 
 Dim folderpath As String
    folderpath = ws.Range("B2").Value
を差し込んでみたのですが、うまくいきませんでした。
 
Dim ws As Worksheet
Set ws = ActiveSheet '
 
Dim qt As QueryTable
Set qt = ws.QueryTables.Add(Connection:="TEXT;D:\Tips.txt", Destination:=ws.Range("A1")) ' CSV を開く
With qt
    .TextFilePlatform = 932
    .TextFileParseType = xlDelimited
    .TextFileCommaDelimiter = True
    .RefreshStyle = xlOverwriteCells
    .Refresh
    .Delete
End With
 
 
宜しくお願いします。

回答
投稿日時: 21/07/19 15:53:45
投稿者: ハヤシライス

こんにちは。
 
変数folderpathは実際にはどこに組み込んだのですか?
 

Dim folderpath As String
    folderpath = ws.Range("B2").Value

の部分だけでは無いですよね。

投稿日時: 21/07/19 16:17:04
投稿者: ぶくぶく

回答ありがとうございます。
 
すみません
その部分しか追加していないです

回答
投稿日時: 21/07/19 17:30:54
投稿者: WinArrow
投稿者のウェブサイトに移動

ぶくぶく さんの引用:
回答ありがとうございます。
 
すみません
その部分しか追加していないです

 
横から失礼します。
引用:
どこに組み込んだのですか?

と質問しているので、すなおに回答しましょう。

回答
投稿日時: 21/07/20 15:59:42
投稿者: ハヤシライス

こんにちは
 

引用:
すみません
その部分しか追加していないです

ということは変数folderpathはセルの値を代入したあと使っていないということですかね。
流石にそれでは意図した動作にはならないですよね。
 
引用:
"TEXT;D:\Tips.txt" の部分をセル参照にしたいのです。

ということですから、そこに組み込んでみてはいかがでしょうか?

回答
投稿日時: 21/07/22 13:32:45
投稿者: simple

横から失礼します。
 

引用:
Connection:="TEXT;D:\Tips.txt"
のConnection引数へ代入する箇所ですが、
"TEXT;D:\Tips.txt"
の二つに分解できます。
 
(1)TEXT; の部分は、
テキストファイルを読む場合、
これを頭につける必要があります。(この文字列を入れることが必須です)
(2)D:\Tips.txtの部分は、ファイルパスですね。
 
二つの文字列ですから、& を使って連結すればよいと思います。

トピックに返信