Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

dBase-Datei laden, bearbeiten, speichern

Gruppe

dBase

Problem

Wie kann ich eine dBase-Datei über VBA laden, bestimmte Werte neu berechnen und die Datei wieder als dBase-Datei speichern?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub Konvert()
   Dim rng As Range
   Dim sFile As String
   Application.ScreenUpdating = False
   On Error GoTo ERRORHANDLER
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "DBase-Datei wurde nicht gefunden!"
   Else
      Workbooks.Open sFile
      For Each rng In Range("A2:B3")
        rng.Value = rng.Value * 2
      Next rng
      Application.DisplayAlerts = False
      ActiveWorkbook.SaveAs sFile, FileFormat:=xlDBF4
      ActiveWorkbook.Close
      Application.DisplayAlerts = True
   End If
ERRORHANDLER:
   Application.ScreenUpdating = True
End Sub