WerkBLAD als WerkMAP wegschrijven II

[DutchOirs]

Goedemorgen,

Reageer even met een nieuwe vraagstelling op draadje https://www.helpmij.nl/forum/showthread.php/952420-werkBLAD-als-werkMAP-wegschrijven

Gebruik excel 2003 en zoals ik inmiddels uit het verhaal begrijp is dat toen Excel 2003 uitkwam men alleen xls als extentie gebruikte.
Met onderstaande code "FileFormat" heeft 2003 een probleem. Krijg als foutmelding "Variabele niet gedefineerd."

.SaveAs Filename:=Worksheets("Start").Range("C11") & "\" & Worksheets("Start").Range("C12"), FileFormat:=xlOpenXMLWorkbook

Iemand een idee hierover?

Vr. Gr.

Dutch

 

[VenA]

Gebruik een ander fileformat. Keuze genoeg https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat

 

[edmoor]

FileFormat is niet van toepassing in Excel 2003.

 

[DutchOirs]

Hoi Edmoor en VenA

Hier even verder.

Klopt wat je zegt Edmoor, maar als ik hem opsla ,met extentie .xls, krijg ik de foutmelding Fout 9, subscript valt buiten het bereik

Ben aan het zoeken en wat van Ron de Bruin gebruikt, maar dit werkt ook niet en dezelfde foutmelding

 

[edmoor]

Zorg ervoor dat alle mappen zoals genoemd in C11 ook bestaan.
Gebruik daarnaast dit:

.SaveAs Filename:=Worksheets("Start").Range("C11") & "\" & Worksheets("Start").Range("C12") & ".xls"

 

[DutchOirs]

Hoi Edmoor,

Path is aangegeven cel C11 met een backslash op het eind. En bestaat uiteraard.

 

[edmoor]

Onhebbelijkheid van Excel 2003.
Haal die laatste \ uit C11 eens weg.

 

[DutchOirs]

Zelfde resultaat.

Maar heb een opening gevonden via Ron de Bruin.

Het werkt, alleen nog Path aanpassen als Menu Opslaan wordt geopend.
Deze moet dus C11 worden
File Name al aangepast

 

[edmoor]

Ik volg je niet meer.
Maar goed, het werkt dus.

 

[DutchOirs]

ben nu zover dat hij het desbetreffende werkblad (welke is geactiveerd) opslaat.
Dit gaat via een Menu opslaan
Maar als dit menu wordt geopend staat het Path (standaard). Dit moet aangepast worden naar het Path (C11) op wb Start.
Hier komen we wel uit
Ga stoppen en vanavond verder.

Weet niet of dit de beste oplossing is, maar vond het wel weer een leuke

Edmoor en VenA bedankt voor het meedenken.

Zal als ik klaar ben een vb-tje plaatsen voor de liefhebber

Grtz

Dutch

 

[snb]

Vermijd spaties en exotische tekens in padnamen en bestandsnamen zoals jij overvloedig gebruikt

In mijn bestand
in C11: "G:\OF\"
in C12: "export_source"

Dan volstaat deze code:

Private Sub ExporterenBut_Click()
   Application.DisplayAlerts = False
   sn = ActiveSheet.Range("C11:C12")
   ActiveSheet.Copy
   ActiveWorkbook.SaveAs sn(1, 1) & sn(2, 1)
   ActiveWorkbook.Close 0
End Sub

 

[DutchOirs]

Goedenavond,

Hierbij nog een iets aangepaste versie.

Men kan in dit File :

- een werkblad kopiëren
- dit werkblad opslaan als een zelfstandig file

Vr. Gr.

Dutch