Disable Excel Macro warning?

[Rich Wallace]

Is there a way to open an Excel file and either respond to or supress the
Macro warning window via VB.NET?

Dim oExcel As Excel.Workbook

Dim sFilePath As String = "C:\DailyReport .xls"

oExcel = GetObject(sFile Path) --> Throws Macro warning window
oExcel.Unprotec t("password")

Try
cnExcel.Open()
cnExcel.Close()
Catch ex As Exception
MsgBox(ex.Messa ge)
Finally
oExcel.Close()
End Try

Thanks,
-Rich

[Jorge]

Hello Rich
I use the following approach Book = Books.Open(file ) and
i never recived any macro warning.

Kind Regards
Jorge

-----Original Message-----
Is there a way to open an Excel file and either respond to or supress theMacro warning window via VB.NET?

Dim oExcel As Excel.Workbook

Dim sFilePath As String = "C:\DailyReport .xls"

oExcel = GetObject(sFile Path) --> Throws Macro warning window oExcel.Unprotec t("password")

Try
cnExcel.Open()
cnExcel.Close()
Catch ex As Exception
MsgBox(ex.Messa ge)
Finally
oExcel.Close()
End Try

Thanks,
-Rich
.

[Rich Wallace]

Forgive me, what namespace do I use to access the Books class?

"Jorge" <an*******@disc ussions.microso ft.com> wrote in message
news:13******** *************** ******@phx.gbl. ..

Hello Rich
I use the following approach Book = Books.Open(file ) and
i never recived any macro warning.

Kind Regards
Jorge

-----Original Message-----
Is there a way to open an Excel file and either respond

to or supress the

Macro warning window via VB.NET?

Dim oExcel As Excel.Workbook

Dim sFilePath As String = "C:\DailyReport .xls"

oExcel = GetObject(sFile Path) --> Throws Macro

warning window

oExcel.Unprotec t("password")

Try
cnExcel.Open()
cnExcel.Close()
Catch ex As Exception
MsgBox(ex.Messa ge)
Finally
oExcel.Close()
End Try

Thanks,
-Rich
.

[Jorge]

Rich,

Dim objExcel As Excel.Applicati on
Dim Books As Excel.Workbooks
Dim Book As Excel.Workbook
Dim Sheet As Excel.Worksheet

objExcel = New Excel.Applicati on
objExcel.Visibl e = True
Books = objExcel.Workbo oks

Book = Books.Open(file )

Sheet = CType(Book.Work sheets(1), Excel.Worksheet )

DirectCast(Book .Sheets("Sheet1 "),
Excel.Worksheet ).Activate()
Sheet = DirectCast(Book .ActiveSheet, Excel.Worksheet )
Jorge

-----Original Message-----
Forgive me, what namespace do I use to access the Books class?
"Jorge" <an*******@disc ussions.microso ft.com> wrote in messagenews:13******* *************** *******@phx.gbl ...

Hello Rich
I use the following approach Book = Books.Open(file ) and i never recived any macro warning.

Kind Regards
Jorge

>-----Original Message-----
>Is there a way to open an Excel file and either

respond to or supress the

>Macro warning window via VB.NET?
>
> Dim oExcel As Excel.Workbook
>
> Dim sFilePath As String = "C:\DailyReport .xls"
>
> oExcel = GetObject(sFile Path) --> Throws Macro

warning window

> oExcel.Unprotec t("password")
>
> Try
> cnExcel.Open()
> cnExcel.Close()
> Catch ex As Exception
> MsgBox(ex.Messa ge)
> Finally
> oExcel.Close()
> End Try
>
>Thanks,
>-Rich
>
>
>.
>

.

[Rich Wallace]

Duh. Sorry about that. That worked like a champ!!!

Thank you sir!

"Jorge" <an*******@disc ussions.microso ft.com> wrote in message
news:14******** *************** ******@phx.gbl. ..

Rich,

Dim objExcel As Excel.Applicati on
Dim Books As Excel.Workbooks
Dim Book As Excel.Workbook
Dim Sheet As Excel.Worksheet

objExcel = New Excel.Applicati on
objExcel.Visibl e = True
Books = objExcel.Workbo oks

Book = Books.Open(file )

Sheet = CType(Book.Work sheets(1), Excel.Worksheet )

DirectCast(Book .Sheets("Sheet1 "),
Excel.Worksheet ).Activate()
Sheet = DirectCast(Book .ActiveSheet, Excel.Worksheet )
Jorge

-----Original Message-----
Forgive me, what namespace do I use to access the Books

class?

"Jorge" <an*******@disc ussions.microso ft.com> wrote in

message

news:13******* *************** *******@phx.gbl ...

Hello Rich
I use the following approach Book = Books.Open(file ) and i never recived any macro warning.

Kind Regards
Jorge

>-----Original Message-----
>Is there a way to open an Excel file and either respond to or supress the
>Macro warning window via VB.NET?
>
> Dim oExcel As Excel.Workbook
>
> Dim sFilePath As String = "C:\DailyReport .xls"
>
> oExcel = GetObject(sFile Path) --> Throws Macro
warning window
> oExcel.Unprotec t("password")
>
> Try
> cnExcel.Open()
> cnExcel.Close()
> Catch ex As Exception
> MsgBox(ex.Messa ge)
> Finally
> oExcel.Close()
> End Try
>
>Thanks,
>-Rich
>
>
>.
>

.