Avatar billede tida Juniormester
17. maj 2017 - 10:16 Der er 2 kommentarer og
1 løsning

Makro fejler ved Activeworkbook.SaveAs kommando

Hej - jeg er amatør på VBA kodning, men har alligevel forsøgt mig med at stykke en makro sammen. Den starter meget godt men fejler i delen med :

ActiveWorkbook.SaveAs Filename:=intColKopiTilPos, _
            CreateBackup:=False

Ideen er at makro skal åbne fil angivet i kolonne 1
og gemmen den med filnavn i kolonne 2

Meget simpelt, men for svært for mig at gennemskue problemet. Jeg vedlægger hele koden herunder og håber på hjælp :

Sub KopierFilerRækkevis()

'Dimensioner rækkevariable
    Dim lngRkStart As Long
    Dim lngRkSlut As Long
    'Dim lngRkIndex As Long
   
'Hvilke rækker skal behandles?
    lngRkStart = InputBox("Indtast første rækkenummer")
    lngRkSlut = InputBox("Indtast sidste rækkenummer")
   
'HERUNDER SKAL ALT ROBOT KODE SKRIVES
'====================================================================

Dim i As Long
Dim Funktion As String



Dim intColKopiFraPos As String
Dim intColKopiTilPos As String


For i = lngRkStart To lngRkSlut

 
    intColKopiFraPos = Cells(i, 1)
    intColKopiTilPos = Cells(i, 2)
    intColTime = Cells(i, 3)
   
       
        Workbooks.Open Filename:=intColKopiFraPos
        ActiveWorkbook.SaveAs Filename:=intColKopiTilPos, _
            CreateBackup:=False
        ActiveWindow.Close
       
    Cells(i, intColTime) = Now
    Next i

   
    Exit Sub
   
        MsgBox ("Filerne er kopieret")
   

End Sub
Avatar billede Jan Hansen Ekspert
17. maj 2017 - 11:00 #1
1. du mangler
    Dim intColTime as Date
2. i A og B er det kun Navnet på filen eller er hele stien med? Er filtypen med?

Jan
Avatar billede tida Juniormester
17. maj 2017 - 12:15 #2
Du har ret i at Dim mangler -  og hele stien er med.

Men jeg har netop fundet ud af at fejlen ligger helt andet sted,
stinavnet var forkert og derfor fejlede makroen, når det rettes kører makroen.

Jeg er iøvrigt lidt forvirret over eksperten....er det slut med at afgive point ?
Avatar billede Jan Hansen Ekspert
17. maj 2017 - 12:28 #3
ja, men du må gerne melde løst
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester