0

次のスクリプトを使用しようとしていますが、次の太字のコード行で型エラーが発生しています。

 Option Explicit

 Dim xlApp
 Dim xlBook
 Dim Filename
 Dim Format

 Set xlApp = CreateObject("Excel.Application")
 Set xlBook = xlApp.Workbooks.Open("\\denfs1\home\davidvan\desktop\shane spread sheet 2.xlsm", 0, True)

 xlApp.Run "Mail_Body"
 **xlBook.SaveAS Filename=("H:Contrabutions spread sheet" & Format(Date,"MM/DD/YYYY")& ".xlsm")**
 xlBook.close
 xlApp.Quit


 Set xlBook = Nothing
 Set xlApp = nothing

ファイル名を文字列として定義する必要があるように感じますが、エラーを起こさずにそれを行う方法がわかりません

4

1 に答える 1

1
  1. （VBAではなく）VBScriptにはFormat（）関数はありません。代わりに、FormatDateTime（）を検索してください。
  2. VBScriptには名前付きパラメーターはありません（VBAの構文には「：=」が含まれます）。.SaveAsメソッドの最初のパラメーターとしてプレーン文字列を使用します
  3. VBScriptパーサーは、文字列連結演算子の前後にスペースを必要としません
于 2012-12-14T19:25:07.343 に答える