Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code won't Run when getting Workbook name
Imports Microsoft.Office.Interop.Excel
Public Class TransferTool Private Sub btn_PrevData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PrevData.Click Dim wkbk As New Microsoft.Office.Interop.Excel.Workbook wkbk.Open(Me.txt_ImportFile.Text) strWrkBkNm = wkbk.Item(1).Name wkbk.Close() wkbk = Nothing Gives an unspecified error, does anyone know why this will not run? Do I need to install something? Thanks, Paula |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code won't Run when getting Workbook name
Here is the error I receive:
Retrieving the COM class factory for component with CLSID {00020819-0000-0000-C000-000000000046} failed due to the following error: 80040154. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code won't Run when getting Workbook name
Paula,
I think you need to change Dim wkbk As New Microsoft.Office.Interop.Excel.Workbook to Dim wkbk As New Microsoft.Office.Interop.Excel.Workbooks Note that this is plural "workbookS" not singular "workbook". Just as a stylistic note, I would also change Imports Microsoft.Office.Interop.Excel to Imports Excel = Microsoft.Office.Interop.Excel -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "Paula" wrote in message ... Imports Microsoft.Office.Interop.Excel Public Class TransferTool Private Sub btn_PrevData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PrevData.Click Dim wkbk As New Microsoft.Office.Interop.Excel.Workbook wkbk.Open(Me.txt_ImportFile.Text) strWrkBkNm = wkbk.Item(1).Name wkbk.Close() wkbk = Nothing Gives an unspecified error, does anyone know why this will not run? Do I need to install something? Thanks, Paula |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code won't Run when getting Workbook name
Chip,
Thanks for your help. If I add the s then I get an error telling me that the New keyword cannot be used on an interface. Then I take out the New and get this error at runtime: Object reference not set to an instance of an object. Any further advice? Paula "Chip Pearson" wrote: Paula, I think you need to change Dim wkbk As New Microsoft.Office.Interop.Excel.Workbook to Dim wkbk As New Microsoft.Office.Interop.Excel.Workbooks Note that this is plural "workbookS" not singular "workbook". Just as a stylistic note, I would also change Imports Microsoft.Office.Interop.Excel to Imports Excel = Microsoft.Office.Interop.Excel -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com (email address is on the web site) "Paula" wrote in message ... Imports Microsoft.Office.Interop.Excel Public Class TransferTool Private Sub btn_PrevData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_PrevData.Click Dim wkbk As New Microsoft.Office.Interop.Excel.Workbook wkbk.Open(Me.txt_ImportFile.Text) strWrkBkNm = wkbk.Item(1).Name wkbk.Close() wkbk = Nothing Gives an unspecified error, does anyone know why this will not run? Do I need to install something? Thanks, Paula |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy and paste using code from workbook to workbook | Excel Discussion (Misc queries) | |||
run code on opening workbook and apply code to certain sheets | Excel Programming | |||
Code in one workbook to call code in another XL file | Excel Programming | |||
Place code from current workbook to new workbook | Excel Programming | |||
Reference code in another workbook from a calling workbook | Excel Programming |