Button in gespeicherte Datei nicht anzeigen
28.10.2014 08:24:49
rag
Also in diesem Makrodatei, gibts ein Button die den Funktion Speichern hat.
Die Datei wird als .xls gespeichert. Was ich will, dass in der gespeicherte Datei der Button nicht angezeigt werden soll.
Die Tabelle enthält Querys also Abfragen, wie kann ich die Datei speichern, ohne Querys, einfach als Normale Excel Tabelle ohne Query und Makro.
Danke
Sub Speichern()
' Speichern Makro
' Abfragen werden gelöscht und Datei wird als Normal Form gespeichert.
Dim strPath As String
Dim strName As String
Range( _
"Tabelle_Abfrage_von_Excel_Files_4[[#Headers],[''Betriebssystem/Servicepack'']]" _
).Select
ActiveWorkbook.Connections("Abfrage von Arbeitsspeicher").Delete
ActiveWorkbook.Connections("Abfrage von Betriebssystem").Delete
ActiveWorkbook.Connections("Abfrage von Computer Name").Delete
ActiveWorkbook.Connections("Abfrage von CPU Takt").Delete
ActiveWorkbook.Connections("Abfrage von IP Adresse").Delete
ActiveWorkbook.Connections("Abfrage von MAC Adressen").Delete
ActiveWorkbook.Connections("Abfrage von Version Whitelisting").Delete
strPath = "C:\Users\Dokumente\Report\Erfassungslieste\"
strName = Application.GetSaveAsFilename(InitialFileName:=strPath & " _
Erfassungsliste_PITS_Solidcore_?_" & ".xls", _
FileFilter:="xlOpenXMLWorkbook (*.xls), *.xls")
If strName = "Falsch" Then Exit Sub
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=strName, FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = True
End Sub
Anzeige