title image


Smiley Excelobjekt kreieren und eine Datei damit öffnen und speichern
Z.B. so:



Dim oExc As New Excel.Application, FName As String

Const Path = "C:\Woauchimmer\"

With oExc

' .Visible = True

ChDir Path

On Error Resume Next

Mkdir ".\DBFFiles"

On error GoTo 0

FName = Dir(Path & "*.dbf")

Do Until FName = ""

debug.print FName

.Workbooks.Open FileName:=Path & FName

.activeWorkbook.SaveAs FileName:=Path & "DBFFiles\" & FName, _

FileFormat:=xlDBF4, CreateBackup:=False

.activeWorkbook.Close SaveChanges:=False

FName = Dir()

Loop

.quit

End With



Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: