[vb] getallen invoeren in excel

[MaartenK18]

Ik heb het volgende probleem, met behulp van Visual Basic haal ik nu data (getallen) binnen uit een meetinstrument. Die data moet verwerkt worden in bijvoorbeeld Excel. Bestaat er in Visual Basic een code om deze direct in te voeren in Excel? Of kan ik deze getallen ook opslaan in kolommen die Excel vervolgens zonder moeite uitleest. (Ik krijg namelijk 3 waardes per keer binnen, een x, y en z-waarde.)

Alvast bedankt.

[sopsop]

gaat het eenvoudigst met: CSV-bestanden (comma separated values)

[MaartenK18]

Dus als ik het goed begrijp zou ik dan dus tussen die drie waardes kommas moeten zetten ?

[Duinkonijn]

MaartenK18 schreef op donderdag 06 januari 2005 @ 15:12:
Dus als ik het goed begrijp zou ik dan dus tussen die drie waardes kommas moeten zetten ?

jup

deze kan je dan simpel in excel of access inporteren

[MaartenK18]

Ik heb er nu iedere keer een spatie tussen staan, is dat makkelijk te verwerken ?

[Duinkonijn]

MaartenK18 schreef op donderdag 06 januari 2005 @ 15:17:
Ik heb er nu iedere keer een spatie tussen staan, is dat makkelijk te verwerken ?

handmatig gaat dat op dezelfde manier, met vb weet ik dat niet

[Daos]

Je kan ook naar een Excel bestand schijven in VB.

Je moet dan wel een object library toevoegen aan je project. Dit is bij mij (Office 2000) de "Microsoft Excel 9.0 Object Library" (C:\Program Files\Microsoft Office\Office\EXCEL9.OLB)
Code wordt dan zoiets:

Visual Basic:

   'maken
    Dim appExcel As New Excel.Application
    Dim wbExcel As Excel.Workbook
    Dim shtExcel As Excel.Worksheet
   
    Set wbExcel = appExcel.Workbooks.Add
    Set shtExcel = wbExcel.Worksheets.Add(Type:=xlWorksheet)
    
    shtExcel.Cells(1, 1).Value = "Test"
    For i = 1 To 5
        shtExcel.Cells(i + 1, 1).Value = i
    Next i
    
        
    'opslaan
    Dim fso As New FileSystemObject
    
    FileName = App.Path & "\Test.xls"
    If fso.FileExists(FileName) Then
        fso.DeleteFile FileName, True
    End If
    
    wbExcel.SaveAs FileName

    wbExcel.Close
    appExcel.Quit

Een andere mogelijkheid is via ODBC of een van zijn verwanten (Excel werkt niet altijd):

Visual Basic:

'de database selecteren
Strdatabase = Text5.Text
'via OLE DB de gekozen database inlezen
'strSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Strdatabase

'Via OLE DB en ODBC
strSource = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" + Strdatabase

'Via ODBC
'Rem ODBC is niet via objecten aan te roepen

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open strSource

Rem: Daarna lezen we de ingevulde waarden in.

StrStudienummer = Text1.Text
StrNaam = Text2.Text
StrJaarInschrijf = Text3.Text
StrHoofdstudie = Text4.Text

SQLQuery = "INSERT INTO studenten VALUES (" + StrStudienummer + ", '" + StrNaam + "', " + StrJaarInschrijf + ",'" + StrHoofdstudie + "');"
objConnection.Execute (SQLQuery)

[ Voor 79% gewijzigd door Daos op 06-01-2005 16:02 ]