在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 

注意：这只是我的头顶。我没有测试它，以确保它符合要求，但应该非常接近。