VBA-makro speichern excel-Datei mit Pfad aus Zelle

Ich versuche Sie zum speichern einer Datei mit einer Kombination von hart-Zeile und Zelle mit dem Wert zu ermitteln, den Pfad der Datei.

In Zelle A29 habe ich eine Formel, Ausgänge:

2014\Januar\Hohe Cash-1.7.14

Ich bin immer ein Erwartet: Ende Anweisung Fehler.

Der code ist:

ActiveWorkbook.SaveAs Filename:="S:\IRD\Tamarac\Daily High Cash Reporting\& Range("A29").Text & ".xlsx", FileFormat:= _  xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False
Syntax-highlighting SO zeigt schon den Fehler.

InformationsquelleAutor user3009860 | 2014-01-07

  1. 4

    Ich würde wieder schreiben, wie folgt:

    Dim fileName As String
fileName = "S:\IRD\Tamarac\Daily High Cash Reporting\" & Range("A29").Text & ".xlsx"
ActiveWorkbook.SaveAs Filename:=fileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

    Ich denke, alles, was Sie sind fehlende schließende Anführungszeichen nach dem "Berichterstattung\" Teil des Codes...

    Ich bin blind. Danke!
    Eigentlich bin ich Kopier deinen code jetzt und Ihr gibt mir eine Fehlermeldung, die auf die "_" nach FileFormat... Hilfe?
    Versuchen Sie, den "_ " vor dem xlNormal und vor CreateBackup. Ich habe bearbeitet meine vorgeschlagene Antwort.
    Dieser code erstellt eine nicht lesbare Arbeitsmappe für mich mit Excel 2007. Ich fand das problem war mit "FileFormat:=xlNormal". Nach dem ändern dieser "FileFormat:=xlOpenXMLWorkbook", der code funktioniert jetzt richtig, und erstellt eine excel-Datei, die Excel Lesen kann. Nicht sicher, ob dies wegen der Excel-version im Einsatz, etc, aber hoffe, dies hilft jemand, der stolpert hier mit dem gleichen problem, das ich hatte.

    InformationsquelleAutor MarkHone

  2. 5

    Schlage vor, Sie gehen einen Schritt weiter und sicherzustellen, dass alle ungültigen Zeichen in Dateinamen, der Fall wird ein speichern-Fehler werden herausgefiltert

    Dieser code entfernt

    []/:*?"<>

    Haupt-code

    Sub CleanSave()
Dim fileName As String
fileName = "C:\temp\" & strClean(Range("A29").Value) & ".xlsx"
ActiveWorkbook.SaveAs fileName:=fileName, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

    Reinigung Funktion 

    Function strClean(strIn As String) As String
Dim objRegex As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
    .Pattern = "[\[\]|\/\\:\*\?""<>]"
    .Global = True
    strClean = .Replace(strIn, vbNullString)
End With
End Function
    Ich eine andere Reinigung-Funktion, aber das geht in meiner Datenbank als auch 🙂
    Brett und @Siddharth Was ist der Unterschied zwischen deklarieren es als eine sub und eine Funktion?

    InformationsquelleAutor brettdj

Schreibe einen Kommentar