.csvファイルをマージするマクロがあります。 デスクトップに置かれたフォルダの魔女からファイルをマージするときに動作しています。 しかし、サーバ上に置かれたファイルをマージしようとすると、マクロは動作しません。サーバからのマクロとファイルをマージする
私は.CSVファイルとフォルダを選択の一部を表示することができます。
Dim fileCount As Long
' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add "CSV files", "*.csv"
.Show
For fileCount = 1 To .SelectedItems.Count
Debug.Print .SelectedItems(fileCount)
Next fileCount
End With
そして、私はすべてのデータを収集するために.txtファイルを作成してい
'Create the bat file
Open BatFileName For Output As #1
Print #1, "Copy " & Chr(34) & foldername & "*.csv" _
& Chr(34) & " " & TXTFileName
Close #1
'Run the Bat file to collect all data from the CSV files into a TXT file
ShellAndWait BatFileName, 0
If Dir(TXTFileName) = "" Then
MsgBox "There are no csv files in this folder"
Kill BatFileName
Exit Sub
End If
デスクトップやファイル上のファイル間のdiferenceは何ですかサーバー上で?
サーバからファイルをマージするとメッセージが表示されます。このフォルダにはcsvファイルはありません。 しかし、.csvファイルがあると確信しています。
おかげ
"*マクロは動作しません" *あなたは簡単に想像することはできません。あなたの質問を編集し、(1)あなたのコードが何をするべきか、そして(2)それが何をするのかを説明してください。 (3)どの行にメッセージがあるのか、何らかのエラーメッセージが表示されますか? (4)サーバーパスはどのように見えますか? UNCパスまたはマップされたドライブ? (5)サーバーファイルは、ローカルファイルとまったく同じファイルですか? –
動作しない場合の 'TXTFileName'の値は何ですか?明らかに、これは有効なディレクトリでなければなりません。それ以外の場合、エラーメッセージは表示されません。そしてそれはどのように初期化されますか?あなたの質問に関連するコード部分も表示してください。ステップバイステップでデバッグするか(F8)、Debug.Print TXTFileNameを使用してください。 –