在Outlook中使用VBA轉置Excel中的CSV文件

Question

所以希望該主題不會太混亂，但基本上在Outlook中使用VBA我將解析我收到的一些電子郵件，然後將結果附加到CSV文件中。

我使用附加的結果：

Open X As Append As 1 
    Print #1 yada yada 
    Close 

我知道在Excel中VBA代碼將是複製和轉，因爲它是非常簡單的範圍內，但是這會是我的Outlook VBA內完成宏？我的目標是在數據附加到CSV文件後完成此操作。

我知道在我的參考文獻中包含對Excel對象的引用，但我不確定如何將Excel代碼放在一起，這會打開我剛剛附加到的CSV文件，將其轉置並保存爲另一個CSV文件。謝謝你的幫助！

Answer 1

如果您在引用中引用了Excel對象，那麼Outlook VBA中的代碼基本上應與Excel VBA中的相同。

主要區別在於您需要確保有一個打開的Excel應用程序實例和您要寫入的工作簿/工作表。這裏是一個基本的宏，用於打開excel讓你開始。

Dim excelApplication As Excel.Application 
Dim workbook As Excel.Workbook 
Dim sheet as Excel.WorkSheet 
set excelApplication = new Excel.Application 
set workbook = excelApplication.Open(<YourFilename>) 
set sheet = workbook.WorkSheets(1) 

'Do your stuff 

workbook.Save 
workbook.Close 
excelApplication.Quit 
set workbook = nothing 
set excelApplicaiton = nothing 

注意：這只是我的頭頂。我沒有測試它，以確保它符合要求，但應該非常接近。