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 2005 17.04.2019, 10:20
Ostatni post: ptrick
  VBA Pobieranie wybranych plików z danymi julietta03 1 7578 04.05.2018, 08:25
Ostatni post: broda99
  [VBA] Przenoszenie danych między formularzami Pioro 4 7952 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
  Wykres Funkcji w Javie wanhelsing 4 8823 17.02.2018 22:27
Ostatni post: wanhelsing
  [SQL]procedura zliczania czasu CTRL85 0 8082 17.02.2018 12:58
Ostatni post: CTRL85
  [VBA Excel] Zaokrąglanie liczby w górę Pioro 2 9261 13.02.2018 21:25
Ostatni post: Pioro
  Sumowanie czasu excel. Cixi 7 8555 13.02.2018 11:52
Ostatni post: Cixi
  Sap i power bi książki Cixi 1 8344 09.02.2018 21:46
Ostatni post: Cixi
  Pomoc w VBA excel Woof 3 8839 19.01.2018 09:36
Ostatni post: Woof
Ściana [CMD] Dwa zadanka które mnie przerosły MihuJ 0 8123 11.01.2018 15:52
Ostatni post: MihuJ
  Czy programowanie jest dla mnie? Co powinienem robić? Kumiku 2 8503 05.01.2018 20:14
Ostatni post: broda99
  SQL zapisanie w rekordzie nazwy zalogowanego użytkownika karlos1323 11 3138 30.12.2017 11:08
Ostatni post: koneton
  Mały algorytm bartek164 3 8452 25.12.2017 10:41
Ostatni post: Szachista
  Git - kompilacja pobranej apki ~Anonim 6 8164 23.12.2017 14:59
Ostatni post: ~Anonim
  wczytywanie zmiennej z innego pliku batch grymariusza 7 8908 18.12.2017 17:34
Ostatni post: broda99
  Jaki kod pod takie okno formularza w visualbasicu 2010? aktywny27 11 18529 26.11.2017 23:26
Ostatni post: Ajgor
  Jaki projekt na pythona bartek164 0 7896 25.11.2017 19:59
Ostatni post: bartek164
  [VB.NET] przenoszenie danych między formami Pioro 15 19253 19.11.2017 03:48
Ostatni post: broda99