|
こんばんは。ありがとうございます
ひとつご質問があるのですが、
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
上記の作成したのですが、うまく動作しません。
もしよければご教授願いたいのですが。。。
|
|