2017-11-13 7 views
0

.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ファイルがあると確信しています。

おかげ

+0

"*マクロは動作しません" *あなたは簡単に想像することはできません。あなたの質問を編集し、(1)あなたのコードが何をするべきか、そして(2)それが何をするのかを説明してください。 (3)どの行にメッセージがあるのか​​、何らかのエラーメッセージが表示されますか? (4)サーバーパスはどのように見えますか? UNCパスまたはマップされたドライブ? (5)サーバーファイルは、ローカルファイルとまったく同じファイルですか? –

+1

動作しない場合の 'TXTFileName'の値は何ですか?明らかに、これは有効なディレクトリでなければなりません。それ以外の場合、エラーメッセージは表示されません。そしてそれはどのように初期化されますか?あなたの質問に関連するコード部分も表示してください。ステップバイステップでデバッグするか(F8)、Debug.Print TXTFileNameを使用してください。 –

答えて

0

それは実際に意味「が動作しません」何伝えるのは難しいです。 Excelをインストールしていないと推測していますが、ここに投稿する前にそれが正しいかどうかを知っておく必要があります。おそらく、Webベースの環境では機能していない可能性があります。 VBAは、Webサーバー、Webサイト、SharePointなどのWeb環境では機能しません。また、QEMC(システム、セットアップ、QlikViewサーバー、展開してクリックして、サーバーのマクロへのシステムアクセスを許可していることを確認してください右のペインの「サーバーで安全でないマクロの実行を許可する」、「サーバーでマクロの実行を許可」)、マクロエディタ(Ctrl + M、左下のドロップダウン)にあります。最後に、ファイルシステムオブジェクト(ファイルなど)を作成している場合は、IEプラグインを使用していることを確認してください。

関連する問題