|
>>awu さん
awuさんのご指摘のあった箇所を修正してみました。
すると今度は、ファイルを開くと
実行時エラー13
型が一致しません。
とエラー表示されます。
デバッグしてみると、「If fname = False Then」の部分が黄色く網掛けされています。
どういうことでしょうか…?
Sub Macro2()
Dim fname As String
fname = Application.GetOpenFilename(filefilter:="CSV ファイル(*.csv),*.csv")
If fname = False Then Exit Sub
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fname, _
Destination:= _
ActiveCell)
.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 = 5
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(9, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
|
|