title image


Smiley Re: Warum verwendest du nicht CopyFromRecordset wie im Beispiel...
Ok, ich habs!!!



Ich umgehe die ganze programmiererei mit SQL.

Ich benutze die transferspreadsheet Methode um die Abfrage, die man in Access erstellen kann zu exportieren und dann per excel zu öffnen. Dann muss man sich einfach die makros mit den aktionen in excel aufzeichnen lassen und den code noch in access einfügen.

Dann funktioniert es.



Danke



DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qryCameras", "C:\Benchmark.xls", True



Dim oExcel As Excel.Application



On Error Resume Next

Err.Clear

Set oExcel = GetObject(, "Excel.Application ")

If Err.Number 0 Then Set oExcel = CreateObject("Excel.Application")

On Error GoTo 0

With oExcel

.Visible = True

End With

' oExcel.UserControl = True



ChDir "C:\"

oExcel.Workbooks.Open Filename:="C:\Benchmark.xls"

oExcel.Rows("1:4").Select

oExcel.Selection.Copy

oExcel.Range("A6").Select

oExcel.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=True

oExcel.CutCopyMode = False

oExcel.ActiveWorkbook.Save

oExcel.Rows("1:5").Select

oExcel.Selection.Delete Shift:=xlUp

oExcel.Columns("A:A").EntireColumn.AutoFit

oExcel.Columns("B:B").EntireColumn.AutoFit

oExcel.Columns("C:C").EntireColumn.AutoFit

oExcel.Columns("D:D").EntireColumn.AutoFit

oExcel.Range("A1").Select

oExcel.Cells.Replace What:="wahr", Replacement:="yes", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

oExcel.Cells.Replace What:="falsch", Replacement:="no", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

oExcel.UserControl = True


Fragen mag einen Moment Scham bedeuten, nicht Fragen und unwissend bleiben bedeutet ein Leben lang Scham.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: