vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
HILFE!: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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
HILFE!:Excel Steuerung mit VBA84moelle01.10.01 12:33
Re: HILFE!:Excel Steuerung mit VBA787ModeratorDieter01.10.01 12:54
Re: HILFE!:Excel Steuerung mit VBA50moelle01.10.01 13:17
Lordchen bitte kommen 777ModeratorDieter01.10.01 13:21
Tja, mal folgendes Problemchen erkannt:772unbekannt01.10.01 19:29
Hab da dennoch ein Problem:58moelle02.10.01 09:17
Ergänzung:53moelle02.10.01 12:37
Fehler gefunden...47moelle04.10.01 08:53

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

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

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