| |
はじめまして。VBAの初心者です。
ファイル（形式不明）を読込み、シート名にその読込んだファイル名の
拡張子を取った状態で一旦保存させていきたいと思っています。
読取るファイルは Application.GetOpenFilename で選択させ、この時の
ファイル名をシート名に付けていきたいのですが、いまいち良く分かりません。
ご教授お願い致します。
現状のマクロ、下記に貼り付け致します。
記述方法おかしいかも知れませんが、これで読込む事は出来ています。
Sub ファイル読込()
'読込ファイルの指定
Dim fName
fName = Application.GetOpenFilename("すべてのﾌｧｲﾙ (*.*),*.*")
If VarType(fName) = vbBoolean Then Exit Sub
'シート内のデータを一括削除
Cells.Select
Selection.Delete Shift:=xlUp
'データ読込（読込開始場所はセルA1）
With ActiveSheet
With .QueryTables.Add( _
Connection:="TEXT;" & fName, _
Destination:=.Range("A1"))
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A1").Select
MsgBox "読込が終了しました。"
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
