Gem område til CSV -fil
Løsning #670 om, hvordan man eksporterer et område til en afgrænset tekstfil.
Dette er et praktisk alternativ til at bruge Excel's standardmåde til at gemme regnearket som en tekstfil eller CSV -afgrænset fil ved at vælge "gem som", når:
1. Du bruger en skabelon og vil kun eksportere dataene eksklusive overskrifter og andre diverse ting
2. På samme måde vil du måske kun eksportere en del af et datasæt
3. Du vil gemme filen med en brugerdefineret afgrænser, der kan være unik for din applikation.
Hvis du har brug for at udføre 1,2 eller 3, kan en funktion som følgende hjælpe. Det accepterer et område, der skal eksporteres, placering for at gemme filen og den afgrænsning, du gerne vil have dine data adskilt med, og gemmer derefter dine data som angivet.
Sådan kaldes funktionen ExportRange:
| 1234567891011 | Sub CallExport ()'ExportRange (område, hvor, afgrænser)Ring til ExportRange (Sheet1.Range ("A1: C20"), _"C: mark.txt", ",")Afslut Sub |
Først fortæller du funktionen det område, du vil eksportere, derefter hvor du vil eksportere det, end den måler, der skal bruges. Du skal også bruge funktionen ExportRange, her er det:
| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 | Funktion ExportRange (WhatRange As Range, _Hvor som streng, afgrænser som streng) Som strengDim HoldRow As Long 'test for ny rækkevariabelHoldRow = WhatRange.RowDim c As Range 'loop through range variabelFor hver c i WhatRangeHvis HoldRow c.Row Så'tilføj linebreak og fjern ekstra delimeterExportRange = Venstre (ExportRange, Len (ExportRange) - 1) _& vbCrLf & c. tekst og afgrænserHoldRow = c.RowAndetExportRange = ExportRange & c.Text & skilletegnAfslut HvisNæste c'Beskær ekstra afgrænsningExportRange = Venstre (ExportRange, Len (ExportRange) - 1)'Dræb filen, hvis den allerede findesHvis Len (Dir (Hvor))> 0 SåDræb hvorAfslut HvisÅbn Where To Append As #1 'skriv den nye filUdskriv #1, ExportRangeLuk #1Afslut funktion |
