Liczba postów: 126
Liczba wątków: 66
Dołączył: 30.12.2006
28.05.2018, 20:41
[VBA] Tworzenie nowego arkusza z danymi z TextBox'a
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
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
Liczba postów: 126
Liczba wątków: 66
Dołączył: 30.12.2006
17.06.2018, 09:38
RE: [VBA] Tworzenie nowego arkusza z danymi z TextBox'a
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
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
Liczba postów: 34879
Liczba wątków: 113
Dołączył: 27.03.2010
18.06.2018, 13:34
RE: [VBA] Tworzenie nowego arkusza z danymi z TextBox'a
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
Nie pomagam na PW (ew. odpłatnie).
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.
Liczba postów: 126
Liczba wątków: 66
Dołączył: 30.12.2006
19.06.2018, 22:01
RE: [VBA] Tworzenie nowego arkusza z danymi z TextBox'a
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
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
Liczba postów: 34879
Liczba wątków: 113
Dołączył: 27.03.2010
19.06.2018, 23:24
(Ten post był ostatnio modyfikowany: 19.06.2018, 23:24 przez broda99.)
RE: [VBA] Tworzenie nowego arkusza z danymi z TextBox'a
No cóż... - nie napisałeś które pola są ci potrzebne więc wrzuciłem wszystkie

.
Nie pomagam na PW (ew. odpłatnie).
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.