MS Excel

Téma: Excel to Txt

Zaslal/a pajuska 12.12.2014 6:26

Ahoj,
ukládám jeden sloupek do txt, ale nyní bych potřebovala aby se to do txt ukládalo bez uvozovek.

Používám tohleto nakro
Sub writetxt()
Dim FilePath As String
Dim CellData As Variant
Dim LastCol As Long, LastRow As Long
LastCol = 16
LastRow = Cells(Rows.Count, "P").End(xlUp).Row
FilePath = "D:\auth2.txt"
Open FilePath For Output As #2
For i = 5 To LastRow
CellData = ""
If Cells(i, "P") <> "" Then
CellData = Trim(Cells(i, 16).Text)
Write #2, CellData
End If
Next i
Close #2
MsgBox ("Done")
End Sub

Děkuji

Uzamčeno - nelze přidávat nové příspěvky.

eLCHa(12.12.2014 6:59)#022752

MístoWrite #2, CellDatavložtePrint #2, CellDatacitovat

pajuska(12.12.2014 9:51)#022754

Velice děkuji.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.