Hej
Hur skapar man och kontrollerar ett MS excelblad i VB6?
Per

Ett exempel från ett av mina projekt.....

Public Sub SkapaExcelStatistik()



' Skapar Excelfilen...
Dim Xls As New excel.Application
Set Xls = CreateObject("Excel.Application")
Dim wb As New excel.Workbook
Dim ws As New excel.Worksheet


Set wb = Xls.Workbooks.Add
Set ws = wb.Worksheets(1)



Dim iRow, iCol As Integer
iRow = 3
iCol = 1

' Skriver rubriker

ws.Cells(iRow, iCol) = "ID"
iCol = iCol + 1
ws.Cells(iRow, iCol) = "FAKTNR"
iCol = iCol + 1
ws.Cells(iRow, iCol) = "KLIENTNR"
iCol = iCol + 1


iRow = 4





' Formaterar rapporten

' Rubriker
ws.Range("A3:W3").Font.Bold = True
ws.Columns("A:W").Font.Size = 8


' Vänsterjusterar samt utvidgar kolumnerna

ws.Columns("A:T").HorizontalAlignment = xlLeft
ws.Columns("A:T").EntireColumn.AutoFit



' Lägger in rätt utskriftsformat
With ws.PageSetup
.Orientation = xlLandscape
.Zoom = 65

End With


ws.Range("A3").Select


' Namnger rapporten och lägger in rubriken


ws.Name = "Statistik " & Format(Now, "yyyy-mm-dd")
ws.Range("A1").Font.Bold = True
ws.Range("A1").Font.Size = 12



' Sparar rapporten
wb.SaveAs strExcelRapportSokvag
MsgBox "Rapporten har sparats i " & strExcelRapportSokvag & ".xls"


' Stänger alla variabler samt Excel.exe
Set ws = Nothing
wb.Close False
Set wb = Nothing

Xls.Quit
Set Xls = Nothing


End Sub

Använd aldrig någonsin Dim ... as new, segar ner programmet något fruktansvärt.

OK Tack
men mitt problem är att jag får ett felmeddelande:
User-deffined type not deffined.

Så vad är det jag inte har gjort?

Undrar Per

Du måste sätta Reference till Micrsoft Excel 8.0 Objekt Library
Det gör du under fliken Project. En anna sak när man skriver så här

<b>Dim iRow, iCol As Integer</b> så blir iRow DataTyp Variant och iCol Integer.

Så här bör det stå <b>Dim iRow As Long,iCol As Long</b>