|
すみません。
単純にCSVファイルを開くで、読み込み形式を指定する方法はわかりません。
textなら指定できますが.....。
2000以上だとクエリの読み込みでも指定できます。
クエリだとこんな感じだったです。97不可なので今のでは試せませんが..。
Sub Macro2()
With Selection.QueryTable
.Connection = "TEXT;C:\My Documents\データ類\郵政省郵便番号\15項目5000.txt"
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub
で、txstを独断と偏見でオールマイティ化させようとしたのが
[#5244]
|
|