Страницы: 1
RSS
Сохранить в текстовом формате
 
Добрый день, друзья.  
Есть файл, как сделать макросом так, чтобы данные сохранились в текстовом файле, без пробелов и чтобы после первого столбца стояла точна запятая ;  
 
Количество строк может быть большим.  
Помогите пжл, надоело вручную делать
 
> данные сохранились в текстовом файле, без пробелов  
 
Совсем без пробелов? (пробелов в текстовом файле быть не должно?)  
 
Выкладывайте пример файла excel и текстового файла, который должен получиться в результате.  
Иначе готового решения Вы не дождётесь.
 
{quote}{login=EducatedFool}{date=08.02.2010 05:41}{thema=}{post}> данные сохранились в текстовом файле, без пробелов  
 
Совсем без пробелов? (пробелов в текстовом файле быть не должно?)  
 
Выкладывайте пример файла excel и текстового файла, который должен получиться в результате.  
Иначе готового решения Вы не дождётесь.{/post}{/quote}  
 
Файл Excell
 
Третий столбец был лишним.  
А текстовый такой
 
Вот весь код:  
 
Sub ОсновнойМакрос()  
   Dim cell As Range, ra As Range  
   Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells  
       txt = txt & cell & ";" & cell.Next & vbNewLine  
   Next cell  
   ИмяДляТекстовогоФайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "пример.txt")  
   SaveTXTfile ИмяДляТекстовогоФайла, txt  
   MsgBox "Создан файл: " & ИмяДляТекстовогоФайла, vbInformation, "Готово"  
End Sub  
 
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean  
   On Error Resume Next: Err.Clear  
   Set fso = CreateObject("scripting.filesystemobject")  
   Set ts = fso.CreateTextFile(filename, True)  
   ts.Write txt: ts.Close  
   SaveTXTfile = Err = 0  
   Set ts = Nothing: Set fso = Nothing  
End Function  
 
 
 
А вот - пример файла с кодом:  
http://excelvba.ru/XL_Files/Sample__08-02-2010__20-00-49.zip  
 
Текстовый файл будет создан в той же папке, где сохранена книга excel    
(из которой запускается макрос)
 
{quote}{login=EducatedFool}{date=08.02.2010 06:00}{thema=}{post}Вот весь код:  
 
Sub ОсновнойМакрос()  
   Dim cell As Range, ra As Range  
   Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells  
       txt = txt & cell & ";" & cell.Next & vbNewLine  
   Next cell  
   ИмяДляТекстовогоФайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "пример.txt")  
   SaveTXTfile ИмяДляТекстовогоФайла, txt  
   MsgBox "Создан файл: " & ИмяДляТекстовогоФайла, vbInformation, "Готово"  
End Sub  
 
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean  
   On Error Resume Next: Err.Clear  
   Set fso = CreateObject("scripting.filesystemobject")  
   Set ts = fso.CreateTextFile(filename, True)  
   ts.Write txt: ts.Close  
   SaveTXTfile = Err = 0  
   Set ts = Nothing: Set fso = Nothing  
End Function  
 
 
 
А вот - пример файла с кодом:  
http://excelvba.ru/XL_Files/Sample__08-02-2010__20-00-49.zip  
 
Текстовый файл будет создан в той же папке, где сохранена книга excel    
(из которой запускается макрос){/post}{/quote}  
 
Класс. Очень помогли.  
Нашла ваши контакты, буду рекомендовать руководству при написании сложных программ.  
Порадовало что очень быстро.  
Супер.  
не ожидала  
СПАСИБО.
 
{quote}{login=Оля}{date=08.02.2010 06:14}{thema=Re: }{post}{quote}{login=EducatedFool}{date=08.02.2010 06:00}{thema=}{post}Вот весь код:  
 
Sub ОсновнойМакрос()  
   Dim cell As Range, ra As Range  
   Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
   For Each cell In ra.Cells  
       txt = txt & cell & ";" & cell.Next & vbNewLine  
   Next cell  
   ИмяДляТекстовогоФайла = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "пример.txt")  
   SaveTXTfile ИмяДляТекстовогоФайла, txt  
   MsgBox "Создан файл: " & ИмяДляТекстовогоФайла, vbInformation, "Готово"  
End Sub  
 
Function SaveTXTfile(ByVal filename As String, ByVal txt As String) As Boolean  
   On Error Resume Next: Err.Clear  
   Set fso = CreateObject("scripting.filesystemobject")  
   Set ts = fso.CreateTextFile(filename, True)  
   ts.Write txt: ts.Close  
   SaveTXTfile = Err = 0  
   Set ts = Nothing: Set fso = Nothing  
End Function  
 
 
 
А вот - пример файла с кодом:  
http://excelvba.ru/XL_Files/Sample__08-02-2010__20-00-49.zip  
 
Текстовый файл будет создан в той же папке, где сохранена книга excel    
(из которой запускается макрос){/post}{/quote}  
 
Класс. Очень помогли.  
Нашла ваши контакты, буду рекомендовать руководству при написании сложных программ.  
Порадовало что очень быстро.  
Супер.  
не ожидала  
СПАСИБО.{/post}{/quote}  
 
Возник еще один вопрос, не смогла разобраться с макросом.  
Как сделать, чтобы 3-тий столбец попадал в текстовый файл и записывался без знаков ко второму столбцу.  
Помогите пжл еще раз.  
Что нужно изменить?
 
txt = txt & cell & ";" & cell.Next & cell.Next.Next & vbNewLine
 
{quote}{login=Hugo}{date=09.02.2010 09:46}{thema=Re: Re: Re: }{post}txt = txt & cell & ";" & cell.Next & cell.Next.Next & vbNewLine{/post}{/quote}  
 
СПАСИБОЧКИ
Страницы: 1
Читают тему
Наверх
Loading...