opslaan kopie vanuit macro

[knabbie]

Beste forummers
Ik zit met het volgende, onderstaande code werkt goed op een PC met Win 2K de nieuwe werkmap word opgeslagen in een nieuwe map ,nu zet ik de originele werkmap op een andere PC in dit geval een XP comp. en daar wil onderstaande code niet werken.

'Vkopiëren naar nieuwe werkmap
    MkDir "c:\vracht"
 ActiveSheet.Copy
    
    With ActiveWorkbook
        
        .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
       .[COLOR="red"]SaveAs Filename:="C:\vracht\ " & Range("C58").Value & Range("C57").Value, ReadOnlyRecommended:=False[/COLOR]
            .Close 0
        
    End With

Ik gebruik office 2000 en de XP pc Maakt gebruik van office 2003,

 

[snb]

Hoe absoluter je de objecten aanduidt hoe minder kans op missers.

    MkDir "c:\vracht"
    [COLOR="Blue"]Thisworkbook[/COLOR].Sheets[COLOR="blue"](1).[/COLOR]Copy
    
    With [COLOR="blue"]Workbook(workbooks.count)[/COLOR]
        .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
       .SaveAs "C:\vracht\ " & [COLOR="blue"].sheets(1).[/COLOR]Range("C58").Value & [COLOR="blue"].sheets(1).[/COLOR]Range("C57").Value
       .Close 0 
    End With

 

[knabbie]

Beste Snb en de overige forummers

Wat ik ook probeer op de Win 2000 macjine met office 2000 werkt deze coderegel wel goed.

.SaveAs Filename:="C:\vracht\ " & Range("C58").Value & Range("C57").Value, ReadOnlyRecommended:=False

Dan word het werkblad wel weggeschreven in de map vracht met de naam uit de cellen c58 en c57

Op de Xp machine met office 2003 werkt de code niet

maak ik van de code

.SaveAs Filename:="C:\vracht\test" & Range("C58").Value & Range("C57").Value, ReadOnlyRecommended:=False

dan ook niet

.SaveAs Filename:="C:\vracht\test"

werkt dan wel

Het lijkt er dus op dat de code struikelt bij het & teken
Raar maar waar,wie weet een oplossing?

 

[Superzeeuw]

Knabbie,

Probeer dit eens:

BestandsNaam = "C:\vracht\" & Range("C58").Value & Range("C57").Value
.SaveAs Filename:= BestandsNaam

Grtz.

 

[snb]

Zo te zien heb je mijn suggestie niet gebruikt.
Die geeft een oplossing voor het door jou niet begrepen verschijnsel.

 

[knabbie]

 With ActiveWorkbook
    
               .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
        [COLOR="Blue"]Dim bestandsNaam As String[/COLOR]
        [COLOR="Red"]bestandsNaam = "C:\vracht\" & Range("C58").Value & Range("C57").Value
.SaveAs Filename:=bestandsNaam[/COLOR]

[COLOR="SeaGreen"]
.SaveAs Filename:="C:\vracht\test7"[/COLOR] 
 'Dim bnaam As String
    bnaam = Range("C58") & Range("C57")

     [COLOR="Red"] .SaveAs Filename:="C:\vracht\test5" & bnaam & ".xls"[/COLOR]     
   .Close 0

Helaas de rode regels willen niet werken
de blauwe regel heb ik nog toegevoegd om de 1ste rode regel te proberen te laten werken,ook dat werkt niet.

de groene regel werkt wel

Beste Snb heb ik heb ook jouw code geprobeers echter ik kreeg op de 1ste workbook een foutmelding,toen heb ik er een regel voorgezet van workbook = active.workbook liep het stukje codewel echter met hetzelfde probleem.

 

[knabbie]

Snb

De exacte foutmelding was

Compileerfout
Sub of Function niet gedefinieerd

 

[snb]

Lees toch eerst maar les 1 van VBA door:
En let op ieder puntje !!

Sub tst()
  MkDir "c:\vracht"
  Thisworkbook.Sheets(1).Copy
    
  With Workbooks(workbooks.count)
    .Sheets(1).UsedRange.Value = .Sheets(1).UsedRange.Value
   .SaveAs "C:\vracht\ " & .sheets(1).Range("C58").Value & .sheets(1).Range("C57").Value
   .Close 0 
  End With
End Sub

 

[knabbie]

Beste snb

zie de bijlage

ik kan der ook niks aan veranderen het zei zo

 

[Wigi]

Workbook[SIZE="6"]S[/SIZE](workbooks.count)

In de foutmelding wordt het woord workbook blauw gekleurd. In dezelfde regel code staat er workbooks met s. Kan je dan niet de link leggen dat het daar ook workbooks met s moet zijn?

het zei zo

Het zij zo.

Wigi

 

[knabbie]

Wigi
thanks voor de aanvulling, en idd vreemd dat ik over de missing S heen gekeken heb
ga er vanmiddag mee stoeien op de XP machine.

Het resultaat volgt.

 

[knabbie]

ligt niet aan de code opzich

Zit in een bepaalde beveiliging binnen de xp versie, schijnt een rechtenkwestie te wezen.

Wie weet kom ik er ooit nog eens achter

U allen bedankt voor het meedenken.