Met ExecuteExcel4Macro data wegschrijven

[Kim2011]

Hoi allemaal,

Kun je met ExecuteExcel4Macro ook data vanuit een bestand wegschrijven naar een ander bestand? Ik weet hoe je data kunt kopiëren, maar andersom, gaat dat ook?

Dankjulliewel!!

 

[VenA]

Vast wel.

Ik weet hoe je data kunt kopiëren, maar andersom

Wat bedoel je met andersom? Plaats anders even een voorbeeldje met wat je hebt en hoe het moet worden.

 

[Roncancio]

De bedoeling is om met VBA naar een gesloten bestand te schrijven.
Dat gaat niet met ExecuteExcel4Macro maar het wel met ADO

Gevonden op internet en ongetest:

 'this example writes the value of 50 to range a1 in sheet1 of a workbook located in
 'C:\Output.xls
Sub Example() 
     
    Call Write2ClosedBookSingleCellRange("C:\Output.xls", _
    "Select * From [Sheet1$A1:A1]", _ 
    50) 
     
End Sub 
 
Sub Write2ClosedBookSingleCellRange(WorkbookFullName As String, SQL As String, NewValue) 
    Dim conn As New Connection, rs As New Recordset 
     
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ 
    "Data Source=" & WorkbookFullName & _ 
    ";Extended Properties=""Excel 8.0;HDR=NO;""" 
    rs.Open SQL, conn, 1, 3 
    rs.Fields(0).Value = NewValue 
    rs.Update: rs.Close: conn.Close 
End Sub

Bovenstaande code zet de waarde 50 in cel A1 van Sheet1 van het bestand Output.xls.

Vergeet overigens niet om een verbinding te maken met Microsoft ActiveX Data Objects (zo hoog mogelijk nummer) Library.

Met vriendelijke groet,


Roncancio

 

[Kim2011]

Dankjewel Roncancio!

Nog 1 vraag. Hoe kan ik die verbinding maken met Microsoft ActiveX Data Objects (zo hoog mogelijk nummer)?

 

[snb]

waarom gebruik niet gewoon ?

Sub M_snb()
   with getobject("G:\OF\wegschrijf.xlsx")
     .sheets(1).cells(1,5)="bewijs"
     .close true
   end with
End Sub

 

[Roncancio]

In de VBE: -- Extra -- Verwijzingen

Met vriendelijke groet,


Roncancio