Visual Basic reading Excel workbook

miami714

Hi List Members,

I am writting a program in Visual Basic and I need to read data from an existing Excel sheet. How can I access the data on Excel?

Thank you.

miami714

Problem solved.

Thanks anyway.

I used the following command.

Expand|Select|Wrap|Line Numbers

 
Option Explicit

'Put a reference to:

'Microsoft Excel (highest number) Object Library

Private xlapp As Excel.Application

Private xlapp2 As Excel.Application

Dim wkbWorkBook As Excel.Workbook

Dim wksSheet As Excel.Worksheet

Dim wkb2 As Excel.Workbook

Dim wks2 As Excel.Worksheet

'Private Const thePath As String = "C:\"

Private SelectedFile As String

Private CounterTab As Integer
 
Private Sub Command1_Click()

 Set xlapp = New Excel.Application

   'xlapp.Workbooks.Open thePath & "pinpon.xls"

   xlapp.Workbooks.Open SelectedFile

   CounterTab = 2

   Set wksSheet = xlapp.Worksheets(CounterTab)

      wksSheet.Activate

      MsgBox xlapp.ActiveSheet.Range("A3").Value

      xlapp.ActiveSheet.Range("A1").Select

      Selection.Copy

      'PastetoNewFile

      wksSheet.Activate

      xlapp.ActiveWorkbook.Close savechanges:=False, FileName:=SelectedFile

   Set wksSheet = Nothing

  xlapp.Quit

 Set xlapp = Nothing

End Sub
 
Private Sub PastetoNewFile()

   Set xlapp2 = New Excel.Application

   Set wkb2 = xlapp2.Workbooks.Add

      'Here: you did not referenced correct objects:

      wkb2.Worksheets.Add

      wkb2.Worksheets("Sheet1").Activate

      'In Italy the above is called differently...

      'wkb2.Worksheets("Foglio1").Activate

      wkb2.ActiveSheet.Paste

      wkb2.Close savechanges:=True, FileName:=thePath & "new.xls"

   Set wkb2 = Nothing

   xlapp2.Quit

   Set xlapp2 = Nothing

End Sub

Visual Basic reading Excel workbook

re: Visual Basic reading Excel workbook

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about