Vasyatka91
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
andrewkard1980
я уже сделал, ну правда не так как хотелось, вот сделал как то так:
Private Sub CommandButton1_Click()
Dim par As Integer
par = TextBox1.Value
'/////////////////////////////////////////////////////////////////////////////////
Dim i As Integer
Dim p1 As String 'NodeB Name
Dim p2 As String 'Nodeb ID
Dim p3 As String 'Adjecent Node ID
Dim p4 As String 'Sybtrack No
Dim p5 As String 'Slot No
i = 0
Rem NodeB Name
p1 = Range("A" & par).Offset(0, 4).Value
Rem Nodeb ID
p2 = Range("A" & par).Offset(0, 5).Value
Rem Adjecent Node ID
p3 = Range("A" & par).Offset(0, 6).Value
Rem Sybtrack No
p4 = Range("A" & par).Offset(0, 7).Value
Rem Slot No
p5 = Range("A" & par).Offset(0, 8).Value
pathNewBook = "C:\Temp\" 'Путь сохранения новой книги
nameNewBook = "Base (" & Format(Now, "MMMM YYYY") & ").xlsx"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.SheetsInNewWorkbook = 1 'количество листов в новой книге
Set NewWB = Workbooks.Add
ThisWorkbook.Activate
Sheets("Base").Copy Before:=NewWB.Sheets(1)
NewWB.Sheets(2).Delete
NewWB.SaveAs Filename:=pathNewBook & nameNewBook
NewWB.Close True 'Сохроняем
Application.CutCopyMode = False
If Dir(pathNewBook & nameNewBook) <> "" Then
MsgBox "Создан файл: " & pathNewBook & nameNewBook
Else
MsgBox "не удалось создать файл
End If
Workbooks.Open ("C:\Temp\Base (" & Format(Now, "MMMM YYYY") & ").xlsx") ' Открываем документ
Range("B4,C167").Value = p1 ' выделяем ячейки в которые необходимо произвести вставку, и вставляем
Range("C4").Value = p2
Range("B96").Value = p3
Range("D4").Value = p4
Range("E4").Value = p5
Unload Me
MsgBox "Complete", vbOKOnly, "Information"
вот как то так, но это только часть, вообще переменных 25) |
