小编use*_*339的帖子

我是VBA的新手,因为我刚开始学习它.

现在我在将信息体从outlook导出到excel时遇到了问题.有趣的是,当我第一次运行时,它的工作原理.但是,当我第二次运行时,会出现标题中所述的错误消息.

我点击了调试,它突出显示了这段代码:"offsetRow = Cells(Rows.Count,1).End(xlUp).Row"

我尝试了各种方法,比如选择我想将数据粘贴到其中的工作表,但无济于事.因此,我希望这里的专家可以帮助我调试代码.如果我做了任何会减慢计算机速度的冗余,也可以随意反馈我的编码.

仅供参考,这是我的工作,以便我可以将电子邮件内容导出到excel.提前致谢.

Sub ExportToExcel()

Dim appExcel As Excel.Application
Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
Dim rng As Excel.Range
Dim strSheet As String
Dim strPath As String
Dim intRowCounter As Integer
Dim intColumnCounter As Integer
Dim msg As Outlook.MailItem
Dim nms As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder
Dim itm As Object
Dim masterData() As String
Dim subData() As String
Dim i As Integer
Dim offsetRow As Long

strSheet = "For fun.xlsx"
strPath = "C:\Users\XXXXX\Desktop\New …