Excel VBA質問箱 IV

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

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


47294 / 76736 ←次へ | 前へ→

【34402】Re:フォルダ内のファイル読み込み方法
発言  yuuka  - 06/2/1(水) 23:40 -

引用なし
パスワード
   こんばんは。ありがとうございます

ひとつご質問があるのですが、

  CSVデータの読み込み
 
  Const ForReading = 1

  Dim i As Long
  Dim rngWrite As Range
  Dim lngRow As Long
  Dim strPath As String
  Dim vntFileNames As Variant
  Dim vntField As Variant
  Dim strBuff As String
  Dim objFso As Object
  Dim objFileStr As Object
  Dim strProm As String
  Dim ShellApp As Object
  Dim oFolder As Object
  '書き込む位置を設定
  Set rngWrite = ActiveSheet.Cells(1, "A")
 
  'FSOのオブジェクトを取得
  Set objFso = CreateObject("Scripting.FileSystemObject")
 
  '読み込むファイルのフォルダを設定
  Set ShellApp = CreateObject("Shell.Application")
  Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1)
  strPath = oFolder
  '指定フォルダからファイル名を取得
  If Not GetFilesList(vntFileNames, strPath, objFso, "csv", ".*") Then
    strProm = "ファイルがありません"
    GoTo Wayout
  End If

上記の作成したのですが、うまく動作しません。
もしよければご教授願いたいのですが。。。
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 お礼

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