Как я могу экспортировать запрос Access в Excel с запросом местоположения и автоматически назначенными свойствами? - PullRequest
Новая
       9

Как я могу экспортировать запрос Access в Excel с запросом местоположения и автоматически назначенными свойствами?

0 голосов
/ 24 января 2019

Я пытаюсь экспортировать запрос Access в Excel с предложением сохранить местоположение и хотел бы, чтобы он автоматически назначал дату и метку времени заранее определенному имени файла.Теперь это прекрасно работает, если я не хочу каждый раз выбирать местоположение: 

Dim sNow As String
Dim sPath As String
Dim sName As String

    sNow = Format(Now(), "mmddyyyy-hhmmss")
    sPath = "C:\FULLPATH"
    sName = "NAME"

    DoCmd.OutputTo acOutputQuery, "QUERYNAME", acFormatXLS, sPath & sName & "_" & sNow & ".xls", True

Ответы [ 2 ]

0 голосов
/ 24 января 2019

Спасибо! это шаг в правильном направлении. Проблема: когда вы нажимаете отмену, он все еще экспортирует (не отменяет), и sPath не меняет путь - он открывает FD с путем My Documents. 

Private Sub btnExportTRXBrowse_Click()
        Dim sNow As String
        Dim sPath As String
        Dim sName As String
        Dim fd As Object

        Set fd = Application.FileDialog(2)

        sPath = "C:\MYPATH\"
        sNow = Format(Now(), "mmddyyyy-hhmmss")
        sName = "TESTNAME_"

        With fd
            .InitialFileName = sPath & "\" & sName & sNow
            If .Show Then selectFile = .SelectedItems(1)
        End With

        If fd.InitialFileName <> "" Then
          DoCmd.OutputTo acOutputQuery, "QUERYNAME", acFormatXLS, fd.InitialFileName & "_" & sNow & ".xls", True
        End If
        Set fd = Nothing

    End Sub
0 голосов
/ 24 января 2019

Попробуйте это 

Sub test()

    Dim sNow As String
    Dim sPath As String
    Dim sName As String
    Dim fd As Object

    Set fd = Application.FileDialog(2)

    sPath = "C:\FULLPATH"
    sNow = Format(Now(), "mmddyyyy-hhmmss")

    With fd
        .InitialFileName = sPath & "\" & sNow
        If .Show Then
            selectFile = .SelectedItems(1)
        Else
            MsgBox "no file selected"
            Exit Sub
        End If
    End With


    DoCmd.OutputTo acOutputQuery, "QUERYNAME", acFormatXLS, fd.InitialFileName & "_" & sNow & ".xls", True
    Set fd = Nothing
End Sub
...