*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Fout in macro-code  (gelezen 2979 keer)

0 leden en 1 gast bekijken dit topic.

Offline Chieftain

  • Ervaren lid
  • ***
  • Berichten: 463
  • Geslacht: Man
  • Erin Go Bragh
Fout in macro-code
« Gepost op: 12 juni 2003, 07:41:54 »
Hallo, heb een probleempje met onderstaande code:

ActiveWorkbook.SaveAs FileName:="C:\Mijn documenten\& Range("A7")",
FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False


Die "A7" wordt niet aanvaard en ik krijg het ook niet ge-debugged.
(cell A7 is in text-formaat).

Iemand een idee?


Chieftain.
Gelogd
Laptop Lenovo etc.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.722
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re:Fout in macro-code
« Reactie #1 Gepost op: 12 juni 2003, 10:03:32 »
Hi Chief,

Dit werkt wel, maar de map C:\Mijn documenten moet wel al bestaan.

Sub Macro1()

adres = Range("A7")
ActiveWorkbook.SaveAs Filename:="C:\Mijn documenten\" & adres, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

End Sub

Groeten,

SoftAid
Gelogd
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !
Windows 11 Home 24H2   Office 2024 Pro Plus Nederlands

Offline Chieftain

  • Ervaren lid
  • ***
  • Berichten: 463
  • Geslacht: Man
  • Erin Go Bragh
Re:Fout in macro-code
« Reactie #2 Gepost op: 12 juni 2003, 14:12:13 »
SoftAid, you're my main man!    :)

Het werkt dus.
Thanx, mate.


Chieftain.
Gelogd
Laptop Lenovo etc.

gj1369

  • Gast
Re:Fout in macro-code
« Reactie #3 Gepost op: 22 oktober 2003, 19:30:08 »
het kon, nog iets simpeler, het was enkel het aanhalingsteken dat op de verkeerde plaats stond.
ActiveWorkbook.SaveAs FileName:="C:\Mijn documenten\"& Range("A7").
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com