[VBA] Tworzenie nowego arkusza z danymi z TextBox'a

[Pioro]

Cześć,

Mam takie pytanie czy jest możliwość, utworzenia nowego pliku Excel z danymi, które są wyliczone i wyświetlone w TextBox'ie. Chodzi mi mniej więcej o takie coś:




Mam utworzone makro, oparte na UserForm i generuję mi ono przekładnie stożkową, a dokładnie mówiąc koła stożkowe. Wszystkie wyniki są wyświetlane w TextBox'ach. Bez problem je mogę pobrać do komórek w pliku w którym jest generowana przekładnia. Natomiast ja chce by utworzyło mi nowy plik Excela i zapisało w taki sposób;



Ma ktoś jakiś pomysł, czy zostaje mi tylko np. wyświetlenie tego w jednym arkuszu (jedno koło) w drugim (drugie koło) i wtedy dopiero przypisanie danych do nowych plików.

Pozdrawiam

[Pioro]

A mógłby mi ktoś podać kod na utworzenie nowego pliku excel? Bo próbowałem kilka sposobów i żadnym mi nie chce utworzyć nowego pliku. Nie chce nagrywać makra bo tam często dziwne składnie tworzy

[broda99]

Kod:

Private Sub CommandButton1_Click()
Dim nwkb As Workbook, i As Integer, plik As String

Set nwkb = Workbooks.Add
plik = ThisWorkbook.Path & "\" & Date & "_" & Hour(Now) & "-" & Minute(Now) & ".xlsx"

For i = 0 To UserForm1.Controls.Count - 1
   If TypeName(UserForm1.Controls(i)) = "TextBox" Then
       nwkb.Sheets(1).Cells(2, i + 1).Value = UserForm1.Controls(i)
   End If
Next i

nwkb.SaveAs plik
MsgBox "PLik " & plik & " został zapisany ", vbInformation, "NFO"

nwkb.Close

End Sub

https://www.sendspace.com/file/rd1k3i

[Pioro]

Dzięki za pomoc o to właśnie mi chodziło tylko delikatnie przerobiłem Twój kod i zamiast pętli podpiąłem bezpośrednio kilka TextBox'ów, które mi były potrzebne Jeszcze raz dzięki za pomoc

[broda99]

No cóż... - nie napisałeś które pola są ci potrzebne więc wrzuciłem wszystkie .