Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.03.2020 12:21:10 |
DonClemente |
|
|
von Word: Excel öffnen, bearbeiten speichern schliessen |
29.03.2020 18:01:36 |
Mase |
|
|
|
29.03.2020 18:07:55 |
Mase |
|
|
|
30.03.2020 00:15:01 |
Gast2727 |
|
|
Von:
Mase |
Datum:
29.03.2020 18:01:36 |
Views:
611 |
Rating:
|
Antwort:
|
Thema:
von Word: Excel öffnen, bearbeiten speichern schliessen |
>> Ohne On Error Resume Next gibt es einen Fehler
Das ist nicht nur gut, sondern sehr gut! Das gibt ne Richtung an - schade dass Du esnicht gleich gepostet hast.
Seis drum.
Versuchs mal so:
Sub DonClemente()
Dim xlApp As Object
Dim xlWkb As Object
Dim sFile As String
'
sFile = "C:\Test\Test.xlsx"
'überprüfen ob File vorhanden
With CreateObject(class:="Scripting.FileSystemObject")
If .fileexists(sFile) Then
'Datei vorhanden
Set xlApp = CreateObject(class:="Excel.Application")
Set xlWkb = xlApp.Workbooks.Open(sFile)
'Arbeiten im Excel
With xlWkb.Worksheets(1)
.Range("A1").Value = "Zelle A1 via Range"
.Cells(1, 2).Value = "Zelle A2 via Cells"
End With
'Meldungen unterdrücken
xlApp.DisplayAlerts = False
xlWkb.Close SaveChanges:=True
xlApp.DisplayAlerts = True
xlApp.Quit
Else
'Code wenn Datei nicht vorhanden
End If
End With
'
Set xlWkb = Nothing
Set xlApp = Nothing
End Sub
Hinweis:
Du erstellst eine neue Instanz damit. Was aber, wenn das File bereits in einer anderen Instanz geöffnet wurde ?
Think about it ;)
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
28.03.2020 12:21:10 |
DonClemente |
|
|
von Word: Excel öffnen, bearbeiten speichern schliessen |
29.03.2020 18:01:36 |
Mase |
|
|
|
29.03.2020 18:07:55 |
Mase |
|
|
|
30.03.2020 00:15:01 |
Gast2727 |
|
|