SAVEAS Methode

05/05/2008 - 09:28 von david.didonato | Report spam
hallo

ich habe folgendes problem bzw. folgender code:
****
Sub Gaga()

Dim app As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rng As Excel.Range

Set wb = GetObject("", "Excel.Sheet")
Set app = wb.Application

Set wb = app.Workbooks.Open("C:\SP5Inst\Profond\Data\_Import\Temp
\GAGA.csv", , , 4, , , , , , , , , , True)

Set ws = wb.Worksheets("GAGA")
ws.Activate

ws.Rows("1:1").Delete

Set rng = ws.Rows(1)

rng.Replace " ", ""
rng.Replace "AHV-Nr.", "AHVNr"
rng.Replace "sgname-17", "NameVorname"

app.DisplayAlerts = False

wb.SaveAs "C:\SP5Inst\Profond\Data\_Import\Temp\GAGA.xls"
app.Quit

app.DisplayAlerts = True

Set rng = Nothing

'app.Visible = True

Set ws = Nothing
Set wb = Nothing
Set app = Nothing

End Sub
***
funktioniert eigentlich ok. wenn ich aber das excel öffnen möchte,
erscheint immer die meldung "sie versuchen eine datei zu öffnen,
'gaga.xls' deren format von dem in der dateierweiterung angegebenen
abweicht..."

was ist falsch bei "wb.saveas..." --> habe gesehen, dass man ein
format angeben kannwas mache ich falsch ?????

gruss
david
 

Lesen sie die antworten

#1 André Minhorst
05/05/2008 - 09:58 | Warnen spam
Hallo David,

microsoft.public.de.excel wàre wohl die passendere Newsgroup für Fragen
zu Excel/VBA.

Ciao
André

schrieb:
hallo

ich habe folgendes problem bzw. folgender code:
****
Sub Gaga()

Dim app As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim rng As Excel.Range

Set wb = GetObject("", "Excel.Sheet")
Set app = wb.Application

Set wb = app.Workbooks.Open("C:\SP5Inst\Profond\Data\_Import\Temp
\GAGA.csv", , , 4, , , , , , , , , , True)

Set ws = wb.Worksheets("GAGA")
ws.Activate

ws.Rows("1:1").Delete

Set rng = ws.Rows(1)

rng.Replace " ", ""
rng.Replace "AHV-Nr.", "AHVNr"
rng.Replace "sgname-17", "NameVorname"

app.DisplayAlerts = False

wb.SaveAs "C:\SP5Inst\Profond\Data\_Import\Temp\GAGA.xls"
app.Quit

app.DisplayAlerts = True

Set rng = Nothing

'app.Visible = True

Set ws = Nothing
Set wb = Nothing
Set app = Nothing

End Sub
***
funktioniert eigentlich ok. wenn ich aber das excel öffnen möchte,
erscheint immer die meldung "sie versuchen eine datei zu öffnen,
'gaga.xls' deren format von dem in der dateierweiterung angegebenen
abweicht..."

was ist falsch bei "wb.saveas..." --> habe gesehen, dass man ein
format angeben kannwas mache ich falsch ?????

gruss
david




http://www.access-entwicklerbuch.de
http://www.access-im-unternehmen.de

Ähnliche fragen