collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 73
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 14132
  • stats Beiträge insgesamt: 68385
  • stats Themen insgesamt: 9210
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: Öffnen nach ExportToExcel  (Gelesen 983 mal)

Offline WhiteCrow

  • Access-User
  • *
  • Beiträge: 78
Öffnen nach ExportToExcel
« am: März 09, 2018, 00:11:36 »
Klein Problem,
bei Datenexport wird eine Excel Datei generiert (alles OK und Fehlerfrei),
je doch (anschießend) bei öffnen bekomme ich ein Fehlerhinweis das
die Datei unter D:\ nicht gefunden werden kann o_O
 
Bis jetzt schauts so aus:
Private Sub btn_Export_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry_Quelle", _
Application.CurrentProject.Path & "\Ziel.xlsx"
Dim appXLS As Object
Dim wbkXLS As Object
Set appXLS = CreateObject("Excel.Application")
Set wbkXLS = appXLS.Workbooks.Add(Path & "\Ziel.xlsx")                         <-hier "Debuggt"
appXLS.Visible = True
appXLS.UserControl = True
End Sub

Dabei habe ich mit Absicht kein Verzeichnis "vorkonfiguriert"
sondern wollte ich im gleichen Verzeichnis automatisch "abgelegt" (überschreiben, ersetzt usw.) bekommen.
Hat jemand einem Tipp wo ich gedanklich hänge?

Bedanke mich im vorraus
*crow
 

Offline Frithjiof

  • Access-User
  • *
  • Beiträge: 74
Re: Öffnen nach ExportToExcel
« Antwort #1 am: März 09, 2018, 00:49:17 »

hallo  WhiteCrow
Zitat
Set wbkXLS = appXLS.Workbooks.Add(Path & "\Ziel.xlsx")   


Wo kommt denn die Variable "Path" her?
Vielleicht durch "Application.CurrentProject.Path " ersetzen?

Frithjof
 
Folgende Mitglieder bedankten sich: WhiteCrow

Offline Lachtaube

  • Access Guru
  • ****
  • Beiträge: 1431
Re: Öffnen nach ExportToExcel
« Antwort #2 am: März 09, 2018, 02:26:39 »
Private Sub btn_Export_Click()
   Dim wbkXLSX As Object
   Dim xlsxFile As String

   xlsxFile = CurrentProject.Path & "\Ziel.xlsx"
   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _
                             "qry_Quelle", xlsxFile

   Set wbkXLSX = GetObject(xlsxFile)
   wbkXLSX.Application.Visible = True
   wbkXLSX.Windows(1).Visible = True
   
   ' dürfte auch funktionieren
   'FollowHyperlink xlsxFile
End Sub
Grüße von der (⌒▽⌒)
 
Folgende Mitglieder bedankten sich: WhiteCrow

Offline WhiteCrow

  • Access-User
  • *
  • Beiträge: 78
Re: Öffnen nach ExportToExcel
« Antwort #3 am: März 09, 2018, 10:16:12 »
gMorgen @Frithjiof -schaue mich noch mal gleich um -danke Dir.

gMorgen @Lachtaube:
Leider bei Deinem Vorschlag "geht" Excel ohne Tatelleninhalt zwei mal auf
und kann nur noch über Taskmanager geschlossen werden.
Dabei Debuggt auf: wbkXLSX.Windows(1).Visible = True
Die Datei Ziel.xlsx selbst, wird aber korrekt geschrieben,
man muss nur eben manuell suchen und doppelklicken/starten.
 

Offline Lachtaube

  • Access Guru
  • ****
  • Beiträge: 1431
Re: Öffnen nach ExportToExcel
« Antwort #4 am: März 09, 2018, 12:41:45 »
Dann teste bitte einmal wbkXLSX.Application.Windows(1).Visible = True oder verwende nur die letzte, auskommentierte Zeile, wenn die Datei nur geöffnet werden soll. Alternativ kannst Du auch im Forum einmal nach ShellExecute suchen.
Grüße von der (⌒▽⌒)
 

Offline WhiteCrow

  • Access-User
  • *
  • Beiträge: 78
Re: Öffnen nach ExportToExcel
« Antwort #5 am: März 09, 2018, 21:38:06 »
als erstes danke für Feedback.

wbkXLSX.Windows(1).Visible = True
"allein" wird generiert und nicht geöffnet. Dazu bei manuellen öffnen "meckert" das System das es von mir/Anwender bereits in Bearbeitung ist, kann nur schreibgeschützt geöffnet werden (Taskmanager, Prozess, beenden).

wbkXLSX.Application.Visible = True
"allein" wird generiert und nicht geöffnet. Ein Manuelles öffnen und bearbeiten ist ohne weitere Probleme möglich.

@ ShellExecute genauer:
TransferSpreadsheet mit Verbindung auf ShellExecute muss mir noch Gedanken machen bzw. schlauer machen/werden.
 

 

Laufzeitfehler, Automatisierungfehler Access 2003 (Öffnen des IE)

Begonnen von matzekatzeBoard Access Programmierung

Antworten: 5
Aufrufe: 6628
Letzter Beitrag Oktober 21, 2010, 08:50:48
von Mendez
Suche Button und Serienbrief über Access öffnen / ablegen

Begonnen von Muhkuh86Board Access-Hilfe

Antworten: 18
Aufrufe: 13535
Letzter Beitrag Mai 12, 2010, 11:38:08
von Muhkuh86
Formular als zweite Instanz öffnen

Begonnen von PManBoard Formular

Antworten: 13
Aufrufe: 10718
Letzter Beitrag Mai 09, 2010, 17:19:15
von PMan
Formular öffnen und neuen Datensatz "vor-"ausfüllen

Begonnen von mradlmaierBoard Formular

Antworten: 2
Aufrufe: 4262
Letzter Beitrag Mai 12, 2010, 15:10:31
von mradlmaier
Benutzername und Passwortabfrage beim Öffnen jeder Datenbank

Begonnen von mradlmaierBoard Access-Hilfe

Antworten: 5
Aufrufe: 6441
Letzter Beitrag Mai 16, 2010, 13:44:16
von database