アクセスレポートを保存します

Question

次のことがありますが、SAVEASダイアログボックスが開きますが、保存をクリックすると実際にはファイルを保存しません。

Dim SaveBox As Object
Set SaveBox = Application.FileDialog(msoFileDialogSaveAs)

With SaveBox
.AllowMultiSelect = False
.InitialFileName = "WeeklyLog " & Format(Now, "yyyy_mm_dd")
SaveBox.Show
End With

.

Answer 1

"... SaveAsダイアログボックスを開きますが、保存をクリックしたときは実際にはファイルを保存していません。

FileDialogはファイルパスを含む文字列を与えることができます。しかし、実際に「保存として保存」操作を実行しません。それはあなたのコードでそのファイルパスを使ってどこかに保存するのはあなた次第です。

Dim SaveBox As Object
Dim strFilePath As String

Set SaveBox = Application.FileDialog(2) ' msoFileDialogSaveAs
With SaveBox
    .InitialFileName = "WeeklyLog " & Format(Date, "yyyy_mm_dd")
    If .Show = True Then
        strFilePath = .SelectedItems(1)
    End If
End With

' now do something with strFilePath ...
If Len(strFilePath) > 0 Then
    MsgBox "File path: " & strFilePath
Else
    MsgBox "Selection cancelled."
End If

.

Answer 2

これはExcelファイルを保存するでしょう、私はあなたがそれを保存するためにそれを得るために微調整するだけの小さなビットを必要とすると思います：

Sub GetFileName()
    Dim fd As FileDialog
    Dim fname As String

    Do
        Set fd = Application.FileDialog(msoFileDialogSaveAs)
        With fd
            .AllowMultiSelect = False
            .InitialFileName = "New To Do.xls"
            If .Show = -1 Then fname = .SelectedItems(1)

            If fname = fd.InitialFileName Then _
                MsgBox "Please enter a new filename", vbOKOnly, "Filename Needed!"
        End With
    Loop Until fname <> fd.InitialFileName

    If IsEmpty(fname) Or fname = vbNullString Then Exit Sub
    ThisWorkbook.SaveAs fname

End Sub

.