B
Bon
Hello all
I have assign a specific workbook to the workbook variable. But, it
doesn't close the specific workbook. It closes all active workbooks.
How can I solve this problem?
My module:
Sub CopyWorksheetContentToWork(strFilePath As String)
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim WorkbookToWorkOn As String
Dim ExcelWasNotRunning As String
WorkbookToWorkOn = strFilePath
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
ExcelWasNotRunning = True
Set xlApp = CreateObject("Excel.Application")
End If
Set xlWorkbook = xlApp.Workbooks(WorkbookToWorkOn)
'Code for copying Excel worksheets content to ActiveDocument
xlApp.Visible = False
xlWorkook.Close SaveChangee:=False
xlApp.Quit
Set xlWorkbook = Nothing
Set xlApp = Nothing
End Sub
Could anyone point out my mistakes?
Thank you very much
Cheers
Bon
I have assign a specific workbook to the workbook variable. But, it
doesn't close the specific workbook. It closes all active workbooks.
How can I solve this problem?
My module:
Sub CopyWorksheetContentToWork(strFilePath As String)
Dim xlApp As Excel.Application
Dim xlWorkbook As Excel.Workbook
Dim WorkbookToWorkOn As String
Dim ExcelWasNotRunning As String
WorkbookToWorkOn = strFilePath
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
If Err Then
ExcelWasNotRunning = True
Set xlApp = CreateObject("Excel.Application")
End If
Set xlWorkbook = xlApp.Workbooks(WorkbookToWorkOn)
'Code for copying Excel worksheets content to ActiveDocument
xlApp.Visible = False
xlWorkook.Close SaveChangee:=False
xlApp.Quit
Set xlWorkbook = Nothing
Set xlApp = Nothing
End Sub
Could anyone point out my mistakes?
Thank you very much
Cheers
Bon