Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Open second Excel file with VBA
My code aims to open a temp copy of another Excel file (declared globally as 'file') and get values from the sheet with the same name as the active sheet in the first document. My attempt:
Private Sub cmdOpen_Click() Dim fso As New FileSystemObject ' Requires reference to Microsoft Scripting Runtime Dim path As String Dim xlTmp As Excel.Application Dim ws As Worksheet Dim temp As String Dim sheetName As String ' Create a temp file path = fso.GetParentFolderName(file) temp = path & "\temp.xls" fso.CopyFile file, temp ' Open temp file in read-only mode Set xlTmp = New Excel.Application xlTmp.Workbooks.Open temp, , True ' Find the corresponding sheet in temp file sheetName = ActiveWorkbook.ActiveSheet.Name Set ws = xlTmp.Sheets(sheetName) If ws = Null Then MsgBox "This workbook doesn't have a sheet named '" & sheetName & "'.", vbExclamation, "Error" End If End Sub VBA won't understand the line If ws = Null Then and I have no idea how to make it happy. I get the object doesn't support property/method error. Tried 'Nothing' too. Any suggestions? Other suggestions on the code are welcome too. Gustaf |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
excel 2003 saved file will not open without a blank workbook open | Excel Discussion (Misc queries) | |||
In Excel - Use Windows Explorer instead of File Open to open file | Excel Discussion (Misc queries) | |||
workbooks.open function fails to open an existing excel file when used in ASP, but works in VB. | Excel Programming | |||
Open email windows can't open, excel shreadsheet file .xls ? | Excel Discussion (Misc queries) | |||
How do I stop Excel from closing the open file each time I open a. | Setting up and Configuration of Excel |