ØNSKE: Jeg vil gerne kunne lægge flere "resultat data" ind i CSV filen "i flere omgange"! Formål: At kunne få en stor CSV fil frem for flere små til import i C5.
Private Sub CommandButton1_Click() ' GEMMER FIL 'Validerer om der tastes filnavn ! If TextBox1 = "" Then MsgBox "Skriv/indtast venligst sti og filnavn !" TextBox1.SetFocus Exit Sub End If 'Fjern tomme linier Sheets("1").Select Range("a1").Select Range("A20:AM2000").Select Selection.AutoFilter Selection.AutoFilter Field:=6, Criteria1:=">0", Operator:=xlAnd Range("A3").Select Worksheets("1").Range("A1:AM2000").Copy
Dim wbSamleListe As Workbook Set wbSamleListe = Workbooks.Add With wbSamleListe
Tror ikke problemet ligge i Excel, men i Navision. Arbejder selv i Navision Stat, og vi opererer med to forskellige kladdetyper i Navision, alt efter hvor mange data vi ønsker, der skal indlæses i kladden fra CSV-filerne.
I den store kan du operere med 18 kolonner og den hedder udvidet ILO indlæsning i STAT-udgaven, ved desværre ikke hvor meget opbygningen er lig med C5'eren
En anden mulighed er at skrive direkte til en CSV-fil - som åbnes "for Append". Sålænge indholdet i Textbox1 ikke ændres - vil et nyt indhold blive tilføjet til CSV-filen. I koden er dette illustreret - din filtrering m.v. er ikke med:
Const sti = "C:\Documents and Settings\pb\Skrivebord\2908CSVxls\" Const textbox1 = "Fil1" Private Sub CommandButton1_Click() Dim ræk, kol, linie, antalKol On Error GoTo luk
ActiveWorkbook.Sheets("1").Activate Open sti + textbox1 + ".csv" For Append As #1 With ActiveSheet antalKol = ActiveCell.SpecialCells(xlLastCell).Column
For ræk = 2 To 65000 'start med række 2 hvis overskrift linie = "" For kol = 1 To antalKol If .Cells(ræk, 1) = "" Then Exit For End If If kol <> antalKol Then linie = linie + CStr(.Cells(ræk, kol)) + ";" Else linie = linie + CStr(.Cells(ræk, kol)) Print #1, linie End If Next kol Next ræk End With
luk: Close #1 End Sub
Er du interesseret kan du få min fil - send en mail til: pb@supertekst-it.dk
Const sti = "C:\Documents and Settings\pb\Skrivebord\2908CSVxls\" Const textbox1 = "Fil1"
Disse linier skal du ikke anvende - er kun med i min model: sti: der hvor csv-filen gemmes (altså i min test-mappe) textbox: erstatning for din "rigtige" textbox
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.
