det här gör man i en knapp i vb så startas exel med ett nytt blad eller vad det heter. Men hur gör jag samma sak för att starta rapport verktyget i access ?? med massa variabler för att kunna skriva ut en rapport med en knapptryckning i från en vb applikation ?? Så här skriver du in text...Start av ett annat program i vb
T.ex Set ExcelSheet = CreateObject("Excel.Sheet")
hur vet jag vad det ska stå mellan cituationstecken ??
fast koden här nedan funkar inte riktigt :( raden som ska skriva in värde i cell 1,1 funkarej :(
Tack på förhand Nicklas
Private Sub Command1_Click()
' Declare an object variable to hold the object
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
' Make Excel visible through the Application object.
ExcelSheet.Application.Visible = True
' Place some text in the first cell of the sheet.
ExcelSheet.Cells(1, 1).Value = "This is column A, row 1"
' Save the sheet to C:\test.doc directory.
ExcelSheet.SaveAs "C:\ TEST.DOC"
' Close Excel with the Quit method on the Application object.
ExcelSheet.Application.Quit
' Release the object variable.
Set ExcelSheet = Nothing
End SubSv: Start av ett annat program i vb
ExcelSheet.Application.cells(1, 1) = "This is column A, row 1"
Dubehöver inte använda createobject.
Så här gjorde jag med Excel:
'Klicka på project/references och välj 'Microsoft Excel 9.0 object library'
Dim xlWorkBook As Excel.Workbook
Dim xlSheets As Excel.Sheets
Dim vSheet As Variant
Set xlWorkBook = GetObject(strFile)
Set xlSheets = xlWorkBook.Sheets
Set vSheet = xlSheets("Sheet1")
vSheet.cells(1,1) = "Test"
'---------------------
Access objektet, kan jag inte hjälpa dig med....