*

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 2229 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.240
  • 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
Maximum grootte bijlagen vergroot naar 4 MB
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 !

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