指定要保存Excel文件的文件夾

Question

每天我在Outlook中收到約100封電子郵件，其中包含類似的主題「經銷商銷售駕駛艙 - XXXXXXXX」，其中XXXXXXXX是一個可變數字。

我需要獲得電子郵件主題末尾的數字，然後將它們寫入Excel電子表格的一個列（如果在Excel中不可能，則將其寫入一個.txt文件中）。

這是我找到的代碼。問題是，它從不寫在「test.xlsx」中。我無法解決它從來沒有真正與VBA合作過。

Sub ExportMessagesToExcel() 
Dim olkMsg As Object, _ 
    excApp As Object, _ 
    excWkb As Object, _ 
    excWks As Object, _ 
    lngRow As Long, _ 
    lngCnt As Long, _ 
    intPos As Integer, _ 
    strFil As String 
strFil = InputBox("D:\LocalData\xl02926\Documents\Samuel\AutoCockpit\test.xlsx", "Export Messages to Excel") 
If strFil <> "" Then 
    Set excApp = CreateObject("Excel.Application") 
    Set excWkb = excApp.Workbooks.Add() 
    Set excWks = excWkb.ActiveSheet 
    'Write Excel Column Headers 
    With excWks 
     .Cells(1, 1) = "Computer" 
    End With 
    lngRow = 2 
    'Write messages to spreadsheet 
    For Each olkMsg In Application.ActiveExplorer.CurrentFolder.Items 
     'Only export messages, not receipts or appointment requests, etc. 
     If olkMsg.Class = olMail Then 
      'Add a row for each field in the message you want to export 
      intPos = InStrRev(olkMsg.Subject, " ") 
      excWks.Cells(lngRow, 1) = Mid(olkMsg.Subject, intPos + 1) 
      lngRow = lngRow + 1 
      lngCnt = lngCnt + 1 
     End If 
    Next 
    Set olkMsg = Nothing 
    excWkb.SaveAs strFil 
    excWkb.Close 
End If 
Set excWks = Nothing 
Set excWkb = Nothing 
Set excApp = Nothing 
MsgBox "Process complete. A total of " & lngCnt & " messages were 
exported.", vbInformation + vbOKOnly, "Export messages to Excel" 
End Sub 

當我運行它，一個彈出出現，我覺得它要求對電子表格中的名字，但我選擇的任何名稱似乎已經存在，所以沒有被創建。它仍會掃描我的收件箱，因爲它會統計我的電子郵件，並說「共導出了X條消息」。 X因我收件箱中的電子郵件數量而異。

Answer 1

除非你提供的InputBox一個完整路徑，你只是給它一個文件名和SaveAs將其放在當前目錄。

的InputBox上述正在顯示哪個你給它的提示，而不是一個默認或初始值。然後，當您到達SaveAs時，當您保存沒有完整路徑的文件時，它將保存在當前目錄中，這可能與InputBox提示中硬編碼的路徑不同。

所以它絕對是是保存文件，它只是不保存到你認爲它的D:\...路徑。

你InputBox函數大概應該是這樣的：

strFile = InputBox(Prompt:="Specify file location for export.", _ 
    Default:="D:\LocalData\xl02926\Documents\Samuel\AutoCockpit\test.xlsx", _ 
    Title:="Export Messages to Excel") 

上面，我們已經給了一個提示，默認值和標題。缺省值填充InputBox的文本輸入字段，如果需要，可以更改它。

注意：當然，您應該確保用戶提供了一個有效的路徑，並且該文件不存在，並且如果出現這些潛在的錯誤情況中的任何一種，則應該編寫管理這些錯誤的代碼，但那是外部這個問題的範圍。