VB + Excel

[frankyp]

Hallo

Ich habe folgendes (aus der Hilfedatei) ausprobiert
Beispiel

In diesem Beispiel wird mit der CreateObject-Funktion ein Microsoft Excel-Worksheet erstellt und dann in einer Datei gespeichert. Damit Sie dieses Beispiel verwenden können, muss Excel auf dem Computer installiert sein, auf dem dieses Programm ausgeführt wird. Außerdem müssen Sie auf der Registerkarte COM im Dialogfeld Verweis hinzufügen, das Sie über das Menü Projekt öffnen, einen Verweis auf die Typbibliothek erstellen. Der Name der Typbibliothek hängt von der auf Ihrem Computer installierten Excel-Version ab. Beispielsweise lautet die Typbibliothek für Microsoft Excel 2002 Microsoft Excel 10.0 Object Library.

Sub TestExcel() Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet xlApp = CType(CreateObject("Excel.Application"), Excel.Application) xlBook = CType(xlApp.Workbooks.Add, Excel.Workbook) xlSheet = CType(xlBook.Worksheets(1), Excel.Worksheet) ' Place some text in the second row of the sheet. xlSheet.Cells(2, 2) = "This is column B row 2" ' Show the sheet. xlSheet.Application.Visible = True ' Save the sheet to C:\Test.xls directory. xlSheet.SaveAs("C:\Test.xls") ' Optionally, you can call xlApp.Quit to close the work sheet.End Subund bekomme immer die Meldung : Sub oder Function nicht definiert !Ich wäre dankbar wenn jemand helfen könnte Vielen Dank FrankyP

 

[Merlin_78]

Hi frankyp,

kann es sein, daß das ein Beispiel für VB.NET ist und nicht für Visual Basic?

 

[NRFi]

sieht 1. ganz schön e aus so ohne Formatierung und 2. ist das tatsächlich .NET, weil du bei VB6 in der gleichen Zeile der Variablendeklarierung keine Initialisierung machen kannst.

Hier ein Beispiel für VB 6 + Excel:

'excel-objects for accessing excelfiles
Private m_objApp As Application
Private m_objWorkbooks As Workbooks
Private m_objWorksheet As Worksheet

Sub ReadFromExcelFile(sFile)
        m_objApp.Workbooks.Open (sFile)
    
        Set m_objWorkbooks = m_objApp.Workbooks
        Set m_objWorksheet = m_objApp.ActiveSheet

        MsgBox m_objWorksheet.Cells(1, 1) 'lese column=1, cell=1 - also A1
End Sub

Private Sub Form_Load()
    Set m_objApp = CreateObject("Excel.Application")
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    m_objApp.Quit
End Sub

Viel Glück