Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


47309 / 76732 ←次へ | 前へ→

【34383】フォルダ内のファイル読み込み方法
質問  たく  - 06/2/1(水) 18:53 -

引用なし
パスワード
   こんばんは。初心者的な質問ですが、教えていただきたいこといくつかがあります。

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行分削除して読み込ませたいのですが、その記述方法も教えていただけませんか?

雑文で申し訳ないですが、ご教授のほどお願いいたします。

0 hits

【34383】フォルダ内のファイル読み込み方法 たく 06/2/1(水) 18:53 質問
【34397】Re:フォルダ内のファイル読み込み方法 inoue 06/2/1(水) 22:12 発言
【34402】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/1(水) 23:40 発言
【34404】Re:フォルダ内のファイル読み込み方法 inoue 06/2/2(木) 0:33 発言
【34405】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/2(木) 0:42 発言
【34406】Re:フォルダ内のファイル読み込み方法 inoue 06/2/2(木) 0:50 発言
【34407】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/2(木) 1:00 発言
【34413】Re:フォルダ内のファイル読み込み方法 inoue 06/2/2(木) 9:15 発言
【34441】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/2(木) 20:35 質問
【34446】Re:フォルダ内のファイル読み込み方法 inoue 06/2/2(木) 22:00 発言
【34447】Re:フォルダ内のファイル読み込み方法 inoue 06/2/2(木) 22:03 発言
【34448】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/2(木) 22:17 発言
【34449】Re:フォルダ内のファイル読み込み方法 Hirofumi 06/2/2(木) 22:50 回答
【34450】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/2(木) 23:01 発言
【34497】Re:フォルダ内のファイル読み込み方法 Hirofumi 06/2/3(金) 21:39 回答
【34539】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/5(日) 22:09 お礼
【34540】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/5(日) 22:20 質問
【34571】Re:フォルダ内のファイル読み込み方法 Hirofumi 06/2/6(月) 22:41 回答
【34602】Re:フォルダ内のファイル読み込み方法 yuuka 06/2/7(火) 23:16 お礼

47309 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free