daNick, если тебе надо экспортировать какие то ячейки из Екселя в отдельный фаил (тоже ексель) могу предложить следующее...
| Код |
Option Explicit
Dim i As Integer, j As Integer, t As String, X(10)
Sub Export()
For j = 1 To 10
X(j) = Cells(i, j)
Next j
Workbooks.Add
ActiveSheet.Name = "Sent_Data"
For j = 1 To 10
Cells(i, j) = X(j)
Next j
ActiveWorkbook.SaveAs Filename:="C:\sent\Data.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
End Sub
Sub inport()
Workbooks.Open Filename:="C:\sent\Data.xls"
Workbooks("Data.xls").Worksheets("Sent_Data").Select
For j = 1 To 10
X(j) = Cells(i, j)
Next j
Workbooks("Data.xls").Close
Kill "c:\sent\Data.xls" ' удаляем загруженный фаил
Worksheets("Sheet1").Select 'выделяем страничку куда данные вставляются
For j = 1 To 10
Cells(i, j) = X(j)
Next j
End Sub
|
i, j это номер строки и номер столбца
Надеюсь это то что тебе и нужно было! |
