Jeg kæmper med at få denne kode til at makke rette. Den kommer med nogle mærkelige linjer, den laver laver den første linje, så laver den den næste linje, men i forlængelse kommer der mere på samme linje. Sådan fortsætter det ned af og med længere og længere linjer. Den skal som sådan kun tage det fra der er i A2 til O13 området. Det må være noget med de tællere og måske dette Print #fNum, Left(csvVal, Len(csvVal) - 2)
Hvad er det der går galt og er der en der kan hjælpe her?
Sub GemSomCSV()
Dim myCSVFileName As String Dim myWB As Workbook Dim rngToSave As Range Dim fNum As Integer Dim csvVal As String Dim firma As String firma = Range("R5").Value
Set myWB = ThisWorkbook myCSVFileName = myWB.Path & "\" & firma & VBA.Format(VBA.Now, "yyyy-mm-dd hh-mm-ss ") & ".csv" csvVal = "" fNum = FreeFile Set rngToSave = Range("A2:O13")
Open myCSVFileName For Output As #fNum
For i = 2 To rngToSave.Rows.Count For j = 2 To rngToSave.Columns.Count csvVal = csvVal & rngToSave(j, i).Value & ";" Next Print #fNum, Left(csvVal, Len(csvVal) - 2) 'csvVal = "" Next
Er ikke helt sikker på hvad du ønsker, men jeg har vendt din matrix, så den afspejler dit regneark
Sub GemSomCSV()
Dim myCSVFileName As String Dim myWB As Workbook Dim rngToSave As Range Dim fNum As Integer Dim csvVal As String Dim firma As String Dim i As Long, j As Long firma = Range("R5").Value
Set myWB = ThisWorkbook myCSVFileName = myWB.Path & "\" & firma & VBA.Format(VBA.Now, "yyyy-mm-dd hh-mm-ss ") & ".csv" csvVal = "" fNum = FreeFile Set rngToSave = Range("A2:O13")
Open myCSVFileName For Output As #fNum
For i = 1 To rngToSave.Rows.Count For j = 1 To rngToSave.Columns.Count csvVal = csvVal & rngToSave(i, j).Value & ";" Next Print #fNum, Left(csvVal, Len(csvVal) - 1) csvVal = "" Next
Jeg får en fejlmelding på den. Syntes dog det er en mærkelig fejl. Jeg har gemt den under et andet VBA navn, så begge ligger der, så jeg kan skifte mellem den for at teste.
Mærkeligt at den bliver ved med at melde den fejl. Hvis jeg starter helt forfra på et nyt regneark, så virker arket fint med forskellige tilfældige VBA koder. Så snart jeg bruger den kode du har lavet, så melder den fejl. Den kode jeg havde øverst, virker også fint.
Nogen der har en ide om hvad det kan være, der fremkalder denne fejl?
Har fået den til at virke. Dog ved at bruge den kode jeg lagde op og så modificere den til bak´s forslag. Tror det må være noget ved kopieringen fra det vindue bak har lagt den op i, som laver ged i det.
Men nu har jeg lige et problem med at den laver 3 ekstra linjer med ;'er Hvordan slipper jeg af med dem?
Eller kan man få den til at lave en row count efter om der er en værdi i kolonne E og så at den selv laver det rigtige antal linjer?
Synes godt om
Ny brugerNybegynder
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.