Создание и запись в txt файл из Excel

[EducatedFool]

я извиняюсь, но можно выложить файл (ну бук10) для excel 2003, я конечно же переставлю на 2007, но врят ли в этом году

а не обязательно его ставить

скачайте конвертер форматов - и открывайте файлы 2007 в своём 2003-м

[Hugo121]

Сообщение от SarahConner

я извиняюсь, но можно выложить файл (ну бук10) для excel 2003, я конечно же переставлю на 2007, но врят ли в этом году, а посмотреть на решение хочется.

спасибо.

Модуль, рассчитан на 2007:

Dim myRibbon As IRibbonUI


Sub RibbonLoading(ribbon As IRibbonUI)

  Set myRibbon = ribbon
End Sub

 Sub btnOnAction(control As IRibbonControl)
  Dim M_path As String, Txt As String, M_Date As String
  M_path = ThisWorkbook.Path
M_Date = Format(Now, "dd.mm.yyyy")
Set oFSO = CreateObject("Scripting.FileSystemObject")


If Dir(M_path & "\" & M_Date & ".txt") = "" Then

Else
Set Tx = oFSO.OpenTextFile(M_path & "\" & M_Date & ".txt", 1, True)
Txt = Tx.readall
Tx.Close
End If

On Error GoTo 10
Set Myfile = oFSO.CreateTextFile(M_path & "\" & M_Dat & ".txt")

With Sheets(1)
Txt = Txt & "[" & M_Date & "]," & .Range("G48") + .Range("G58") & "{всего+обязательства}," & _
.Range("G56") & "," & .Range("G54") & "," & .Range("G48") + .Range("G58") + .Range("G54") + .Range("G56") & "," & _
.Range("G50") & "," & .Range("G48") - .Range("G50") & "," & .Range("G45") & "," & .Range("G27") & "," & .Range("G58")

Myfile.WriteLine Txt
Myfile.Close
Set Myfile = Nothing
Set Tx = Nothing
Set oFSO = Nothing
.PrintOut
End With
ThisWorkbook.Close (False)
Exit Sub
10
MsgBox Err.Description
End Sub

[SarahConner]

спасибо, оч. оперативно!