Как выполнить экспорт столбца Excel в файл *.txt

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Как выполнить экспорт столбца Excel в файл *.txt (Макросы Sub)

Gauradas

Дата: Суббота, 13.07.2013, 10:14 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Здраствуйте! Столкнулся с задачей создания текстового файла из листа Excel
Вопрос
как одним кликом по кнопке создать текстовый файл с данными из первого столбца ("Имя листа")
в той же папке где находится исходник например в категории C:\MIDI.
Пока нашел только это:
[vba]

Код

Private Sub CommandButton1_Click()
With CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\MIDI\sample.txt", 8)
.writeline Join(Application.Transpose([a2:a806].Value), vbLf)
.Close
End With
End Sub

[/vba]
Но здесь уже задана категория и предполагается что файл sample.txt уже находится на диске С:\MIDI

Вопрос посложнее
Есть ли средства в VBA Excel которые помогут созданный таким образом файл sample.txt обработать с помощью программы находящейся в папке

Цитата

С:\Windows\t2mfXP.exe

То есть действия попунктно:
1) Запускаем командную строку Пуск\Выполнить набираем cmd
2) Вводим в появившейся командной строке
C:\Documents And Settings\Имя пользователя>cd C:\MIDI
Нажатие Enter
C:\MIDI>t2mfXP.exe sample.txt sample.mid
Нажатие Enter
Создание файла завершено успешно

Помогите с решением задачи!

К сообщению приложен файл: ___txt.xls (49.0 Kb)

Ответить

Gauradas

Дата: Суббота, 13.07.2013, 11:57 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

[vba]

Код

Private Sub CommandButton1_Click()
On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")
' создаём главную папку
BaseFolder$ = ThisWorkbook.Path & "\MIDI\": MkDir BaseFolder$
MkDir BaseFolder$
' создаём файл в кодировке Unicode
Set ts = FSO.CreateTextFile(BaseFolder$ & "sample.txt", True)
ts.Close
With CreateObject("Scripting.FileSystemObject").OpenTextFile(BaseFolder$ & "sample.txt", 8)
.writeline Join(Application.Transpose([a2:a806].Value), vbLf)
.Close
End With
Set ts = Nothing: Set FSO = Nothing
MsgBox "Файлы созданы, и помещены в папку" & vbNewLine & BaseFolder$, vbInformation, "Готово"
' открываем папку с файлом
CreateObject("wscript.shell").Run "explorer.exe /e, """ & BaseFolder$ & """"
End Sub

[/vba]

Сообщение отредактировал Gauradas - Суббота, 13.07.2013, 11:57

Ответить

Gauradas

Дата: Воскресенье, 14.07.2013, 13:18 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Решение задачи:
[vba]

Код

Sub Создать_mid()
      On Error Resume Next
      Set FSO = CreateObject("scripting.filesystemobject")
      ' создаём главную папку
      BaseFolder$ = "C:\MIDI\": MkDir BaseFolder$
      MkDir BaseFolder$
      ' создаём текстовый файл в кодировке Unicode
      Set ts = FSO.CreateTextFile(BaseFolder$ & "sample.txt", True)
      ts.Close
      ' заполняем его данными
      With CreateObject("Scripting.FileSystemObject").OpenTextFile(BaseFolder$ & "sample.txt", 8)
         .writeline Join(Application.Transpose([a2:a806].Value), vbLf)
         .Close
      End With
      ' создаём пустой файл *.mid
      Set ts = FSO.CreateTextFile(BaseFolder$ & "sample.mid", True)
      ts.Close
      Const PATH1 = "C:\WINDOWS\"
      Const PATH = "C:\MIDI\"
      ' создаем рабочий файл *.mid
      CreateObject("wscript.shell").Run PATH1 & "t2mfXP.exe " & PATH & "sample.txt " & PATH & "sample.mid", 0, True
      Set ts = Nothing: Set FSO = Nothing
      MsgBox "Файлы созданы, и помещены в папку" & vbNewLine & BaseFolder$, vbInformation, "Готово"
      ' открываем папку с файлом
      CreateObject("wscript.shell").Run "explorer.exe /e, """ & BaseFolder$ & """"
End Sub

[/code][/vba]

Ответить

Как выполнить экспорт столбца Excel в файл *.txt (Макросы Sub)

Страница 1 из 1
1