2

我是 Outlook VBA 的新手，正在尝试比较两个不同封闭工作簿中同一单元格中的值。

我在收到电子邮件的附件后创建了一个 Excel 对象，该附件将附件保存为 CSV 文件。

然后，我想检查文件中的标题行是否与第一行中具有相同标题的主副本匹配，但我不确定如何引用工作表名称或使用对象的单元格。我已经尝试了许多使用 VBA for Excel 的方法，但它似乎在 Outlook 中不起作用。

如果有人可以帮助我，将不胜感激。

Function ConvertXls2CSV(sXlsFile As String)

On Error Resume Next

Dim oExcel As Object
Dim oExcelWrkBk As Object
Dim bExcelOpened As Boolean 'Was Excel already open or not
Dim OriginalFile As String
Dim MasterFile As String
Dim Fault As Integer

Set oExcel = GetObject(, "Excel.Application") 'Bind to existing instance of Excel

If Err.Number <> 0 Then 'Could not get instance of Excel, so create a new one
    Err.Clear
    On Error GoTo Error_Handler
    Set oExcel = CreateObject("excel.application")
    bExcelOpened = False
Else 'Excel was already running
    bExcelOpened = True
End If    

Set oExcelWrkBk = oExcel.Workbooks.Open(sXlsFile)
oExcelWrkBk.SaveAs Left(sXlsFile, InStrRev(sXlsFile, ".")) & "csv", xlCSVWindows


/*THIS IS WHERE I WANT TO REFERENCE THE CELLS IN THE WORKBOOKS*/

OriginalFile = oExcelWrkBk.Sheets("PK Price Data").Cells(1, 1).Value
MasterFile = oExcelWrkBk."MasterFile.xls".Sheets("PK Price Data").Cells(1, 1).Value

if OriginalFile = MasterFile then
fault = 1
else fault = 0
end if

oExcelWrkBk.Close False

If bExcelOpened = False Then
   oExcel.Quit
End If

End Function

非常感谢梅琳达

4

1 回答 1

0

据我所知，不可能解决您对封闭工作簿的引用。但是，您可以在不显示的情况下打开它application.screenupdating = false。当您完成将引用存储在某些变量中后，您可以简单地关闭工作簿并设置 application.screenupdating = true

于 2013-09-03T06:08:51.100 回答