[[20210901181218]]　『VBA：CSVファイルの値での取り込み』（KUJI）　ページの最後に飛ぶ

『VBA：CSVファイルの値での取り込み』（KUJI）

内容：

住所等の情報が書かれたCSVを取り込みたいです。
マクロの記録を実行したところ下記が記録されました。

開きたいファイルをダイアログで選択し、
実行する方法はありますでしょうか？

※取り込み時に番地が日付になるのを避けたいです。

何卒よろしくお願い申し上げます。

 With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;“”開きたいファイルのパス“”.CSV" _
        , Destination:=Range("$A$2"))
        .Name = "開きたいファイル名"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 932
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

＞開きたいファイルをダイアログで選択し、実行する方法はありますでしょうか？
着目されている部分は正しいと思います。
↓にファイルパスが入ればいいですよね。

 ”開きたいファイルのパス“”

そしてダイアログを表示してユーザーにファイルを指定してもらう方法はいくつかあります。
http://officetanaka.net/excel/vba/tips/tips154.htm

ということで、

 (1)ダイアログを表示してユーザーにファイルを選択してもらい、【変数にパスを格納する】
 (2)(1)のパスを使い、QueryTables.Addでデータを取り込む

としてみてはどうでしょうか。

（もこな２） 2021/09/01(水) 20:29

コメント返信：

[ 一覧(最新更新順) ]

[[20210901181218]] 『VBA：CSVファイルの値での取り込み』（KUJI） ページの最後に飛ぶ

[[20210901181218]]　『VBA：CSVファイルの値での取り込み』（KUJI）　ページの最後に飛ぶ