Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

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

#1
[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ś:

[Obrazek: f9f46a6f1fb34.jpg]


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;

[Obrazek: dd785d866efa6.jpg]

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.
 System operacyjny: windows_ten Przeglądarka: firefox
#2
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 Wesoły
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#3
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.




 System operacyjny: windows_seven Przeglądarka: firefox
#4
RE: [VBA] Tworzenie nowego arkusza z danymi z TextBox'a
Dzięki za pomoc Wesoły o to właśnie mi chodziło Wesoły tylko delikatnie przerobiłem Twój kod i zamiast pętli podpiąłem bezpośrednio kilka TextBox'ów, które mi były potrzebne Wesoły Jeszcze raz dzięki za pomoc Wesoły
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#5
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 Oczko .
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.




 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki ([VBA] Tworzenie nowego arkusza z danymi z TextBox'a)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  VBA excel dmjs 6 5059 17.04.2019, 10:20
Ostatni post: ptrick
  VBA Pobieranie wybranych plików z danymi julietta03 1 9341 04.05.2018, 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 9760 23.04.2018, 11:48
Ostatni post: broda99

Skocz do:


Wybrane wątki ([VBA] Tworzenie nowego arkusza z danymi z TextBox'a)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Wyświetlanie informacji z bazy danych na stronie www PitPlay 1 1138 16.09.2019 11:18
Ostatni post: Ajgor
  Błąd przy uruchamianiu programu w Java z wiersza poleceń Physicist 3 1250 30.08.2019 14:16
Ostatni post: Physicist
  Python z wiersza poleceń Physicist 15 6825 21.08.2019 20:14
Ostatni post: Physicist
  Transfer plików via FTP Visual Basic FireBytes 3 4322 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 1997 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 3503 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 3588 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 3489 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 5116 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 2244 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 4821 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 5059 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 5536 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 5350 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 4695 23.03.2019 16:49
Ostatni post: luciussulla