resistentes Projekt

30/03/2010 - 16:04 von HeliKopf | Report spam
Servus zusammen,
ich hàtt' da mal ein Problem...

Mit Hilfe dieser NG habe ich einen Code aufgebaut, der mir per ADO aus
einer ACESS-DB verschiedene Excel-Dateien befüllt. Das funktioniert
hervorragend nur bleibt nach dem Schliessen der Datei das zugehörige
VAB-Projekt im Projektexplorer weiterhin vorhanden! Ich kann dort auch
den Code einsehen und bearbeiten, Excel-Tabellen sind allerdings nicht
aufrufbar. Wo liegt denn mein Fehler? Vielleicht kann von euch mal
jemand drüber gucken und mir den einen oder anderen Hinweis liefern.
Vielen Dank schon mal im Voraus!
Servus, Helmut.

Hier noch mein Code:
Sub export_EKDB()
Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim objrs As ADODB.Recordset
Dim strSQL As String
Dim strSource As String
Dim strPfad As String
Dim strDatei As String
Dim strTabelle As String
Dim strLand As String

strSource = "\\Server\Pfad\Datenbank.mdb"
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & strSource & ";"
conn.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = conn

Sheets("Steuerung_ADO").Select
Range("A2").Select

Do While ActiveCell.Value <> ""
strDatei = ActiveCell.Value
strPfad = ActiveCell.Offset(0, 1).Value
strTabelle = ActiveCell.Offset(0, 2).Value
strLand = ActiveCell.Offset(0, 3).Value
strSQL = "SELECT * FROM Q_QUELLABFRAGE WHERE Land = " & strLand

Workbooks.Open strPfad & strDatei

Workbooks(strDatei).Sheets(strTabelle).Range("2:65536").ClearContents

With cmd
.CommandText = strSQL
Set objrs = .Execute

Workbooks(strDatei).Sheets(strTabelle).Range("A2").CopyFromRecordset
objrs
End With
Set objrs = Nothing
Workbooks(strDatei).Save
Workbooks(strDatei).Close
ActiveCell.Offset(0, 4).Value = Now
ActiveCell.Offset(1, 0).Activate
Loop

conn.Close

Set cmd.ActiveConnection = Nothing
Set cmd = Nothing
Set conn = Nothing

MsgBox "fertig!"

End Sub
 

Lesen sie die antworten

#1 Andreas Killer
31/03/2010 - 09:16 | Warnen spam
On 30 Mrz., 16:04, HeliKopf wrote:

Mit Hilfe dieser NG habe ich einen Code aufgebaut, der mir per ADO aus
einer ACESS-DB verschiedene Excel-Dateien befüllt. Das funktioniert
hervorragend nur bleibt nach dem Schliessen der Datei das zugehörige
VAB-Projekt im Projektexplorer weiterhin vorhanden! Ich kann dort auch
den Code einsehen und bearbeiten, Excel-Tabellen sind allerdings nicht
aufrufbar. Wo liegt denn mein Fehler?


Nirgends, ich hab dieses Phenomen auch schon sporadisch gesehen, hat
nichts mit ADO zu tun, sondern hàngt vermutlich irgendwie mit VBA
selber zusammen.

Wenn es bei Dir konstant nachvollziehbar ist könntest Du einfach mal
versuchen mit
WorkBooks("mappe.xls").Close
diesen "Eintrag" zu entfernen... keine Ahnung was dann passiert, ist
nur so'ne Idee die mir schon mal kam, hab ich noch nie probiert.

Andreas.

Ähnliche fragen