okidoki
Mar 12, 2022
view1358
view6
0
Goto Top

Tabellenblatt Excel einblenden (und ausblenden)

GermansolvedQuestionBatch, ShellDevelopment
Guten Tag zusammen,

leider bekomme ich ein Tabellenblatt nicht eingeblendet.
Ich würde mich über Hilfe freuen face-smile

Soweit bin ich, was leider nicht funktioniert:
Set appXLS = CreateObject("Excel.Application")  
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx", , true)  
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle1").Visible = True  
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing

Gruß
okodoki
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 2133873781

Url: https://administrator.de/contentid/2133873781

Printed on: April 27, 2024 at 06:04 o'clock

6 Comments
Latest comment
Goto Top
Mitglied: 1915348599
1915348599 Mar 12, 2022 updated at 15:02:47 (UTC)
Goto Top
"Speichern" des Workbook vor dem Schließen wäre mal eine Idee 😉🖖
Friday still continues ...
heart1
Member: OKIDOKI
OKIDOKI Mar 12, 2022 at 15:22:54 (UTC)
Goto Top
... hatte eigentlich gedacht, dass "Close" gleichzeitig auch speichert ...

Set appXLS = CreateObject("Excel.Application")  
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx", , true)  
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle1").Visible = True  
wbkXLS.save
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing

... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*
Member: rubberman
Solution rubberman Mar 12, 2022 at 16:10:42 (UTC)
Goto Top
Set wbkXLS = appXLS.Workbooks.Open("Datei.xlsx",  ,      true)  
                                      ^         ^          ^
                                   FileName  UpdateLinks  ReadOnly
ReadOnly ¯\_(ツ)_/¯

Steffen
Member: DivideByZero
Solution DivideByZero Mar 12, 2022 at 18:33:27 (UTC)
Goto Top
Zitat von @OKIDOKI:
... nun will er aber dieselbe datei überschreiben, eingeblendet und gespeichert ist es dennoch nicht ...
*verzweifel*

Oder mit SaveAs arbeiten:
docs.microsoft.com/de-de/office/vba/api/excel.workbook.saveas

Hier ist übrigens alles dokumentiert, so auch die Parameter zur Open-Methode:
docs.microsoft.com/de-de/office/vba/api/excel.workbooks.open

Grüße

DivideByZero
Mitglied: 73234
Solution 73234 Mar 12, 2022 updated at 19:17:21 (UTC)
Goto Top
Ein Makro was das Tabellenblatt 'Tabelle2' ein - und ausblendet

Sub Makro2()
    Sheets("Tabelle2").Visible = Not Sheets("Tabelle2").Visible  
End Sub

BG
Member: OKIDOKI
OKIDOKI Mar 12, 2022 at 20:39:49 (UTC)
Goto Top
Liebe Dank euch face-smile (insbesondere auch der Tipp von Steffen war sehr hilfreich)
Ich habe versucht mich durchzuarbeiten und so läuft es:

Set appXLS = CreateObject("Excel.Application")  
Set wbkXLS = appXLS.Workbooks.Open("Pfad\Datei.xlsx", , false)  
wbkXLS.RefreshAll
wbkXLS.sheets("Tabelle2").Visible = false  
wbkXLS.save
wbkXLS.Close 0
Set wbkXLS = Nothing
appXLS.Quit
Set appXLS = Nothing

okidoki
GermansolvedQuestionBatch, ShellDevelopment