Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47290 / 76732

←次へ　｜　前へ→


	【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