Visual Basic Forum for Visual Basic Programmers VB

[pwdrvr]

i have no problem writing a code that opens excel now i can't figure out how to open a certain workbook or worksheet in a workbook please help

[dougthomas]

Hi,

Here's the bit you know:

[pwdrvr]

ok we know what i'm trying to do and everything i try isn't working
so maybe if i give you what i've got so far you can tell me where i went wrong

Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)

Private Sub Excel_Click()
Rem this will minimize all windows first
Call keybd_event(&H5B, 0, 0, 0)
Call keybd_event(&H4D, 0, 0, 0)
Call keybd_event(&H5B, 0, &H2, 0)

Rem this will open excel
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", vbMaximizedFocus)


Dim wbWorkBook As Excel.Workbook
Dim shtSheet As Excel.Worksheet

Dim strWorkbook As String
Dim strSheet As String

strWorkbook = "C:\Documents and Settings\Josh\My Documents\Mrp Updates\Mrp update.xls"
strSheet = "PO"

Set wbWorkBook = appExcel.Workbooks.Open(strWorkbook)
Set shtSheet = wbWorkBook.Sheets(strSheet)
End Sub

where is the error?¿

[dougthomas]

Hi again,

I can't see anything wrong with the code. Have you added a reference to the Excel Object Library to your Project ? (From the Project, References menu for the project)

Are you getting some sort of error message? If so what is it?

What are you expecting to see ?

Looking at your code, just before the "End Sub" you have opened Spreadsheet PO in
C:\Documents and Settings\Josh\My Documents\Mrp Updates\Mrp update.xls

I assume you want to do something with it now that it's open.

if you just want to display it, try putting

shtSheet.Visible = xlSheetVisible

after the set ShtSheet = wbWorkBook.Sheets(strSheet) statement.

What exactly are you trying to do ?


Regards
Doug