• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse