|
こんばんは。初心者的な質問ですが、教えていただきたいこといくつかがあります。
1.、ダイアログボックスからフォルダ内にあるファイルを読み込ませたい
これは、フォルダ内に入っているCSvファイルを読み込ませたいのですが、方法がわかりません。
以下の記述は、ファイルを読み込ますのですが、ここからフォルダへ変更するのはどうすればいいでしょうか?
Sub ファイル選択()
'
' Macro1 Macro
' マクロ記録日 : 2006/1/14 ユーザー名 :
Dim Fname
Fname = Application.GetOpenFilename(filefilter:="CSV ファイル(*.csv),*.csv")
'
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fname, _
Destination:=Range("A1"))
' キャンセルされた場合は以降の処理は行なわない
If StrConv(Fname, vbUpperCase) = "FALSE" Then Exit Sub
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub
また、ファイル2個目以降から1行分削除して読み込ませたいのですが、その記述方法も教えていただけませんか?
雑文で申し訳ないですが、ご教授のほどお願いいたします。
|
|