Navigation

Før det første er total grøn i denne for for VBA og Markro.
men kan da tyde lidt. ud fra de markroer mit program udfører

Jeg tegner i special programmer og kan køre en makro (Quote_preTrae.xls) fra det program der generer en excelfil med oplysninger om træmængder og stål. 
Undervejs skabes  en tekstfil i en mappe. Dette er som det skal være. 

denne køres undervejs.......
Sub RunMacro()

    Dim cMacro$
    Dim cMacro2$

    ' Find the QuoteMacro.xls workbook and execute the real macro.
    cMacro = "'" + ActiveWorkbook.Path + "\" + "quotemacro.xls'!RcwQuote"
    cMacro2 = "'" + ActiveWorkbook.Path + "\" + "quotemacro.xls'!Prissetting"

    Application.Run cMacro
    Application.Run cMacro2

    Workbooks("QuoteMacro.xls").Close

    ExportAsText ("C:\Multi900\" & Range("JOBNO") & ".txt")

End Sub
Private Sub ExportAsText(Path)

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=xlText, CreateBackup:=False

    Application.DisplayAlerts = False

End Sub
Private Sub Workbook_Open()

    Call RunMacro

End Sub

------------------------------------------------------------------------------------------------------------------------

Nu kunne jeg tænke mig at få det strikket sammen så jeg automatisk får gemt denne fil som PDF i samme mappe som mit program har oprettet excelfilen.
eks. S:\Mappe\Projekt\exelfil.xls

Jeg har kunnet lave dette men datastien skal på en eller anden måde ændres, men hvordan?
og hvordan før jeg den afviklet undervejs så både txt og Pdf dannes.
Og kan det lade sig gøre?  

Redigeret af Allan - 24.Jan.2017 kl. 19:10

Navigation

Lagre PDF automatisk i Mappen med excelfilern