Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Hello, I have been trying to fix this error but I have no clue why it's not
working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Try activating the workbook first then activating the worksheet.
Workbooks("Import_unmappedmoves.xls").activate worksheets("Moves").Activate -- Regards, OssieMac "vcsphx" wrote: Hello, I have been trying to fix this error but I have no clue why it's not working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Hi,
The error is occuring because you have .xls in the line below Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate Just remove the .xls Workbooks("Import_unmappedmoves").worksheets("Move s").Activate That shld work. HTH, -- Tausif Mohammed "vcsphx" wrote: Hello, I have been trying to fix this error but I have no clue why it's not working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Thanks for the response! But I have tried both of the suggested solutions
(activating the Workbook first before trying to activate the worksheet and having the workbook name without .xls) with no luck. Do you know if there is anything else that might be causing error? Thanks a lot for your time and help! I really appreciate it! "Tausif" wrote: Hi, The error is occuring because you have .xls in the line below Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate Just remove the .xls Workbooks("Import_unmappedmoves").worksheets("Move s").Activate That shld work. HTH, -- Tausif Mohammed "vcsphx" wrote: Hello, I have been trying to fix this error but I have no clue why it's not working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
Hi Again,
I think this should def work. The line on which you get error is Workbooks("Import_unmappedmoves").worksheets("Move s").Activate bcoz I think you are not referencing the xlsApp variable. You need to prefix xlsApp. Try xlsApp.Workbooks("Import_unmappedmoves").worksheet s("Moves").Activate OR xlsApp.Workbooks("Import_unmappedmoves.xls").works heets("Moves").Activate HTH, -- Tausif Mohammed "vcsphx" wrote: Thanks for the response! But I have tried both of the suggested solutions (activating the Workbook first before trying to activate the worksheet and having the workbook name without .xls) with no luck. Do you know if there is anything else that might be causing error? Thanks a lot for your time and help! I really appreciate it! "Tausif" wrote: Hi, The error is occuring because you have .xls in the line below Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate Just remove the .xls Workbooks("Import_unmappedmoves").worksheets("Move s").Activate That shld work. HTH, -- Tausif Mohammed "vcsphx" wrote: Hello, I have been trying to fix this error but I have no clue why it's not working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Subscript out of range error
WOW!!! Thank you very much!! That did it...
"Tausif" wrote: Hi Again, I think this should def work. The line on which you get error is Workbooks("Import_unmappedmoves").worksheets("Move s").Activate bcoz I think you are not referencing the xlsApp variable. You need to prefix xlsApp. Try xlsApp.Workbooks("Import_unmappedmoves").worksheet s("Moves").Activate OR xlsApp.Workbooks("Import_unmappedmoves.xls").works heets("Moves").Activate HTH, -- Tausif Mohammed "vcsphx" wrote: Thanks for the response! But I have tried both of the suggested solutions (activating the Workbook first before trying to activate the worksheet and having the workbook name without .xls) with no luck. Do you know if there is anything else that might be causing error? Thanks a lot for your time and help! I really appreciate it! "Tausif" wrote: Hi, The error is occuring because you have .xls in the line below Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate Just remove the .xls Workbooks("Import_unmappedmoves").worksheets("Move s").Activate That shld work. HTH, -- Tausif Mohammed "vcsphx" wrote: Hello, I have been trying to fix this error but I have no clue why it's not working. Any help would be greatly appreciated! I am getting "Subscript out of range error" when I execute the coding given below, only when I HAVE AN EXCEL INSTANCE OPEN. If I close all the excel instance and run the code again, it works just fine. Here is the coding: ------------------------------ Dim xlsApp As Object 'I included this ExcelIsOpen function to see if an excel instance is already open 'and if so, use that...but that doesn't seem to fix the issue If ExcelIsOpen Then Set xlsApp = GetObject(, "Excel.Application") xlsApp.Visible = True Else Set xlsApp = CreateObject("Excel.Application") xlsApp.Visible = True End If xlsApp.Workbooks.Open Filename:="C:\USERNAME\Import_UnmappedMoves.xls", Password:="password", WriteResPassword:="password" 'am getting the error when the next line executes Workbooks("Import_unmappedmoves.xls").worksheets(" Moves").Activate ------------------------ Do you know where I am going wrong? Thanks in advance for your help! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Runtime Error - Subscript out of range despite On Error statement | Excel Programming | |||
Subscript out of range error - save copy error | Excel Programming | |||
Subscript out of range error - save copy error | Excel Programming | |||
Type Mismatch error & subscript out of range error | Excel Programming | |||
subscript out of range error | Excel Programming |