| |

Fortgeschrittene ProgrammierungHILFE!:Excel Steuerung mit VBA | |  | Autor: moelle | Datum: 01.10.01 12:33 |
| Hi Leute,
vesuche immer noch meine Excel Tabelle mit Access zu steuern. Funktioniert im Prinzip auch.
Mein Problem ist nur, das nachdem meine entsprechende Sub durchgelaufen ist, das FEnster von Excel zwar geschlossen ist, der Prozess "excel.exe" läuft aber noch, somit legt sich Excel immer wieder auf die Schnauze.
Ein weiteres Problem: Will ich die Sub ein 2. mal ausführen, meldet mir das Dingen bei dem Versuch, die Tabelle zu bearbeiten: RPC Server nicht gedunden.
Hier mal mein Code:
Sub TransferExcel()
Dim XL1 As Object ' Variable für Verweis auf
' Microsoft Excel.
Dim x, zz, yy As Long
On Error Resume Next
DoCmd.OutputTo acOutputReport, "TEST", acFormatXLS, "C: TEST.xls" ', True
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "TEST", "C:Klassifizierung-EntwicklungTEST.xls"
Set XL1 = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set XL1 = CreateObject("Excel.Application")
Err.Clear ' Err-Objekt im Fehlerfall löschen.
End If
' Objektvariable so festlegen, daß sie auf die gewünschte Datei verweist.
Set XL1 = GetObject("c: Test.xls")
XL1.Application.Visible = True
XL1.Parent.Windows(1).Visible = True
For x = XL1.Worksheets("Tabelle1").UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountBlank(Rows(x)) = 256 Then
Cells(x, 1).EntireRow.Delete
End If
Next
Rows.AutoFit
Columns("A:M").AutoFit
zz = Columns("a:m").Count
For yy = 1 To zz
Columns(yy).ColumnWidth = Columns(yy).ColumnWidth + 2
Next yy
XL1.Application.Quit
Set XL1 = Nothing ' Verweis auf Anwendung und
' Tabelle freigeben.
End Sub
Na ja, hoffe mir kann einer helfen...
Bis dann
Moelle |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|