1

このコードは機能しますが、何か奇妙なことが出てきます。ファイルを保存しようとすると、その理由があるの"Open Order Log - 10-4-12.xlsx"ではなく、に表示されます。Open Order Log - 10-4-12.xlsx

NewFile = Application.GetSaveAsFilename(InitialFileName:="Open Order Log - " & Format(Date, "dd-mm-yyyy") & ".xlsx")

解決しました：

wbBK2.SaveAs Dir & Application.PathSeparator & "Open Order Report -" & Format(Date, "mm-dd-yyyy") & ".xlsx"

少しひねりがありますが、機能します。

4

1 に答える 1

1

引用符を削除するには、フィルターを使用する必要があります。

NewFile=Application.GetSaveAsFilename(InitialFileName:="StackOverflow.xlsx", _
             FileFilter:="Excel Files (*.xlsx), *.xlsx")

Mac の場合の注意:
には長い間バグがあることに注意してください getsaveasfilename: ユーザーが開示矢印を使用してファイルに移動すると、誤ったパスが返されます。ただし、代わりにディレクトリ ノードをダブルクリックすると、パスは正しくなります。

于 2012-09-04T15:08:58.533 に答える