Ø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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
