☰

Excel-Tabelle mit Makros – einfach die Daten speichern?

tag-icon • tag-icon microsoft-excel macros
Excel-Tabelle mit Makros – einfach die Daten speichern?

Ich habe eine Excel-Tabelle mit integrierten Makros, um Daten aus einer Datenbank abzurufen. Ich möchte die Excel-Tabelle speichern und an jemanden senden, wobei die Daten erhalten bleiben sollen. Da jedoch Makros verwendet werden, gehen die Daten beim Senden der Datei verloren, da keine Verbindung zur Datenbank hergestellt werden kann.

Gibt es eine Möglichkeit, diese Datei ohne die vorhandenen Makros zu speichern/senden, sodass alle Daten statisch sind?

Antwort1

Beim Speichern als CSV-Datei sollten nur die Datenwerte der Zellen und sonst nichts (nicht einmal Formeln) gespeichert werden. Anschließend können Sie Ihre neue CSV-Datei als XLS-Datei speichern, wenn Sie dieses Format bevorzugen.

Antwort2

Hier ist der Code, der die Datei für Sie speichert:

Option Explicit

Sub SaveValuesToDisconnectedFile()
    Sheets("Sheet1").Copy
    Sheets("Sheet1").Name = "DataFromDB"
    ActiveSheet.UsedRange.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.SaveAs Filename:="C:\Temp\Offline Data.xlsx" _
        , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
End Sub

Ersetzen Sie "Sheet1" durch den Namen des Blatts, das Ihre Daten enthält. Sie können auch den Pfad ersetzen, wo die Datei gespeichert werden soll.

Beachten Sie, dass die Datei bereits vorhanden ist, wenn Sie dies zweimal ausführen. Sie werden daher aufgefordert, den Vorgang abzubrechen oder die vorhandene Datei zu überschreiben.

verwandte Informationen