1

フォーラムを 1 時間以上閲覧した後でも、コードとして保存が機能しない理由がわかりません。

私の目標は、ブックの新しいコピーを別のファイルの種類で保存することです。(現在のファイルの種類は .csv です。) 新しい場所や別の場所に保存しようとしているのではなく、現在のディレクトリが保存先です。

次のコードのバリエーションを覚えているよりも多く試したので、現在の構文を投稿します。

CurrentDir = CurDir()

dateVal = Date

ActiveWorkbook.SaveAs Filename:="" & CurrentDir & "ALS Week of " & dateVal - 4 & ".xlsx", FileFormat:=51

ユーザーが保存するために情報を入力するダイアログ ボックスを開く方法の例を見てきました。しかし、私はハンズオフのアプローチを望んでいます。誰かが私のエラーがどこにあるかを見ることができれば、私に知らせてください!

編集: 私が得るエラーは"Method 'SaveAs' of object '_Workbook' failed

4

2 に答える 2

5

日付に不正な文字が含まれています。日付をスラッシュではなくダッシュでフォーマットすると、これは起こりません。

The following reserved characters:

    < (less than)
    > (greater than)
    : (colon)
    " (double quote)
    / (forward slash)
    \ (backslash)
    | (vertical bar or pipe)
    ? (question mark)
    * (asterisk)
于 2013-06-13T23:16:52.947 に答える