Just nu i M3-nätverket
Gå till innehåll

MvS

Medlem
  • Antal inlägg

    122
  • Gick med

  • Senaste besök


Anseende-aktivitet

  1. Gilla
    MvS fick anseende från mbgtmari i Öppna alternativa Wordfiler via VBA i Excel   
    Hittade lösningen själv!
    Bara att lägga till 
    On Error Resume Next
    Fixat!
     
  2. Gilla
    MvS fick anseende från mbgtmari i Öppna alternativa Wordfiler via VBA i Excel   
    Hittade lösningen själv!
    Bara att lägga till 
    On Error Resume Next
    Fixat!
     
  3. Gilla
    MvS fick anseende från mbgtmari i Öppna alternativa Wordfiler via VBA i Excel   
    Hittade lösningen själv!
    Bara att lägga till 
    On Error Resume Next
    Fixat!
     
  4. Gilla
    MvS gav anseende till Monshi i Excel exportera separata kolumner till txt-fil   
    Skriptet fungerar alltså som jag skrev i inlägget tidigare
    1. Ett tomt blad i aktuell bok skapas
    2. Värden kopieras dit
    3. Detta blad flyttas till en ny arbetsbok
    4. Den nya arbetsboken sparas.
     
    Detta är det enklaste sättet att göra detta, där man vet att man får samma resultat och frågor varje gång det körs och på vilken dator det än körs.  Det borde inte bli någon flik kvar i din arbetsbok om skriptet körs klart utan fel utan det har flyttats till den nya boken som sparas och sedan stängs. Denna metod har fungerat bra alltid när jag använt den med alla de version av Excel jag testat det på (reservation för Max)
     
    Me.cells(1,10) är som sagt bara för att få ett löpnummer eftersom Excel kraschade för mig när den fick skriva över samma fil två gånger i rad. Du kan ta bort det om du vill. Försök förstå vad koden gör.
     
    Jag kan skriva om koden så att den direkt skapar en ny bok (men denna kan skapas med flera blad vilket gör sparandet lite mer osäkert) och kopierar till den, så att du får en dialog som frågar vad du vill kopiera osv. Men bäst är om du förstår vad skriptet gör.
    Du kan kommentera bort raden
    Application.ScreenUpdating =  False
    så ser du vad som sker under tiden skriptet körs.
    och sätt breakpoints om du vill.
     
    och om vill ha hängslen och livrem kan jag lägga på felhantering som tar bort det nya bladet om något går fel.
×
×
  • Skapa nytt...