Так я могу записать в файл только одну строку, а мне надо заполнять исходную таблицу построчно, как сделать так, чтобы и в файл заносилось построчно ??? Может вообще другой способ есть?



Private Sub CommandButton1_Click()
'------------------------------------------------
Dim m As String
Dim ord As Integer
'-------------------------------------
If Sheet1.Cells(3, 1) = 2 Then
m = "Un_Mash_2.ppd"
ElseIf Sheet1.Cells(3, 1) = 1.5 Then
m = "Un_Mash_1,5.ppd"
End If
'----------------------------------------
ord = Sheet1.Cells(5, 1)
'---------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
'----------------------------------------------------
Set a = fs.CreateTextFile("c:\Documents and Settings\user33.USER33\Desktop\test.ppo", True)
'-------------------------------------------------------------------------------------------
a.WriteLine (Chr(34) & "Parametric \ masters \ Mash \" & m & Chr(34) & Chr(32) & Chr(34) _
& "C:\Metalix\P\ORDER\" & ord & Chr(92) & ord & Chr(34))
'--------------------------------------------------------------
a.Close
'---------

End Sub

To big_duke:
Лист - Файл(параметрические данные для CNC- "Parametric\masters\Door\Un_door_1,5.ppd" "C:\Metalix\P\ORDER\1" DoorType=1, LockType=1, AxisType=4, SizeY=800, SizeX=2000, , Side=R, Around=N, Win=500-одна строчка, следующая будет точно такая ,
но с другими значениями и т.д.)
я с заказа заношу данные в лист (20-30 строчек), получаю сводный рапорт
(5-6 строчек) и отсюда же хочу получить готовую работу (файл) для CNC !

Сейчас параметрические данные для CNC я ввожу вручную, я это лишнняя трата времени и дополнительные ошибки!
---------------------------------------------------------------------------
To Processor: Спасибо , я сегодня же попробую и сообщу!

Работает как часы, но пришлось покопаться , не хватало выражения:

Const ForAppending = 8 , без этого не работало, но догнал!
-----------------------
Но теперь другая беда! Написал строку , надо нажать кнопку, еще строка, опять нажать кнопку и т. д. А хотелось бы написать сколько надо строк и нажать кнопку и все бы одновременно построчно расположились бы в файле ???????

Я уже пробовал копировать (Save As) с листа в файл сразу все строки! И все было хорошо, да лишние кавычки появляются, ""например так"" или там,
где их вообще в исходнике не было- в конце строк"!!!

Опыта у меня всего ничего, может кто подскажет, где копать, а уж я нарою!!!

'------------------------------------------
Private Sub CommandButton1_Click()
'------------------------------------------------
Const ForAppending = 8
Dim fso, f, v
Dim sPath As String
Dim msg As String
Dim m As String
Dim ord As Integer
Dim i As Integer
'================

For i = 2 To 10
--------------
'================
If Sheet1.Cells(i, 2) = 2 Then
m = "Un_Mash_2.ppd"
ElseIf Sheet1.Cells(i, 2) = 1.5 Then
m = "Un_Mash_1,5.ppd"
End If
'----------------------------------------
ord = Sheet1.Cells(i, 1)
'-------------------------------
sPath = "c:\Documents and Settings\user33.USER33\Desktop\vova.ppo"
msg = (Chr(34) & "Parametric \ masters \" & m & Chr(34) & Chr(32) & Chr(34) _
& "C:\Metalix\ORDER\" & ord & Chr(92) & ord & Chr(34))
'---------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
'----------------------------------------------------
If Not fso.FileExists(sPath) Then
fso.CreateTextFile sPath
DoEvents
End If
Set f = fso.GetFile(sPath)
Set v = f.OpenAsTextStream(ForAppending)
v.WriteLine msg
v.Close
DoEvents
Set v = Nothing
Set f = Nothing
Set fso = Nothing
'========

Next i
------
'========
End Sub

=========================================================
Вот так дает как надо, но дает так же и пустые строки!!! :(
Например, если For i = 2 To 10 и заполнено в исходнике будет 5 строк,
то в файле будет так:

===========================================================
"Parametric \ masters \ Un_Mash_2.ppd" "C:\Metalix\ORDER\852\852"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\888\888"
"Parametric \ masters \ Un_Mash_2.ppd" "C:\Metalix\ORDER\777\777"
"Parametric \ masters \ Un_Mash_2.ppd" "C:\Metalix\ORDER\666\666"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\555\555"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\0\0"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\0\0"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\0\0"
"Parametric \ masters \ Un_Mash_1,5.ppd" "C:\Metalix\ORDER\0\0"

Вижу, что надо бы мне сделать что то такое: посчитать заполненые строки в
исходнике и присвоить им значение переменой и тогда все решается !?
Но как подсчитать, кто знает??????
..............
...............
..............
Dim n As Integer

For i = 2 To 50
For j = 2 To 30
------------------------------
If Sheet1.Cells(i, j).Value <> 0 Then
...Row.Count -------------------------- как это записать правильно???
-------------------------------
End If

Next j
Next i
------------------------------
n = ...Row.Count------------------------- или чему равно???

======================
For i = 2 To n

и далее .....

Я помощь читаю , вот надыбал:
---------------------------------------
Dim areaCount, i
-----------------
If areaCount <= 1 Then
MsgBox "The selection contains " & _
Selection.Rows.Count & " rows." ---------------'это работает отлично
-------------------------------------------
Как мне обозначить "n"

n= ..... -------------------------------- чему равно????

For i = 2 To n

и т.д.

А вот как просто все решилось, записать в файл из таблицы только заполненые строки!

'-----------------------------------
Set r = Range("A1:A50")
For i = 1 To r.Rows.Count
If Not r.Cells(i, 1) = Empty Then
...........................................
............................................ и т. д.

В итоге я имею программу, которая позволяет вводить не думая
в 1 таблицу ехселя на первом листе данные из заказа (например, двери: длина, ширина,какие петли, какой замок и т. д.) и нажимаю кнопку и все!!!
На выходе получаю более подробную отпечатаную сводную таблицу (с чертежами) для исполнителя заказа(цеха) и готовые параметрические програмы для CNC на весь заказ!!! (И освободившиесе время буду тратить
на самообразование по Ехсел_ВБА, ведь это была моя первая программа-так сказать - дебют)
Большое спасибо всем, кто откликнулся на мой зов о помощи!!!!
------------------------------------------
И особо to big_duke and to Processor!!!
---------------------------------------------
Надеюсь на вашу помощь и далее!
Уж очень хочется применить в этой программе базу данных, что бы можно было восстанавливать пройденные работы!