Corel FORUM

[michal.s]

Witam.
Czy mógłby mi ktoś pomóc w odnalezieniu na forum postów z zastosowaniem opcji ComboBox.
Pracuję w Corelu X4 i chciałbym przygotować makro do importu plików.
Przygotowałem coś takiego i musiałbym do tego dopisać kod.

Założyłem, żeby programik będzie działał tak:
Z listy ComboBox1 wybieram jeden z plików które znajdują się na dysku c w katalogu pliki do importu (w katalogu będą znajdować się np. pliki: ramka.pdf, paser.pdf, pas.pdf, skalka.pdf)
C:\pliki do importu\
Po kliknięciu w przycisk ComandButton1 plik zostaje zaimportowany do aktualnego arkusza.
Z góry dziękuję za pomoc

---

UserForm1.png

Pobierz Plik ściągnięto 345 raz(y) 27.48 KB

[chezare]

To jest jakieś szkolne zadanie, czy próba zastąpienia czegoś co już jest czymś innym?

[nakan]

michal.s masz świadomość że to co do tej pory to jest dopiero 1% roboty za sobą, ten łatwiejszy jeden procent :) łyżkę już masz teraz tylko musisz wykopać tą łyżką kilometrowy tunel w skale :)

Poszperajna forum.oberonplace.com
Tutaj sobie popatrz : http://forum.oberonplace.com/showthread.php?t=7077
albo tutaj: http://forum.oberonplace.com/showthread.php?t=5995

i pewnie nie tylko :)


Warto zaglądać też do helpa zawartego w samym VBA Corela .

[michal.s]

Dziękuję nakan
Na pewno zajrzę na zaproponowane przez Ciebie strony i myślę, że to w dużym stopniu mi pomoże...

chezare,

Cytat:

To jest jakieś szkolne zadanie...

dla Ciebie na pewno tak... dla mnie to podstawówka... a może nawet początkowe nauczanie w klasie "0"

Cytat:

czy próba zastąpienia czegoś co już jest czymś innym?

nie bardzo wiem co masz na myśli, pisząc "czegoś" "czymś innym"

Nigdy nie będę programistą... ale mam dużą satysfakcję jeżeli uda mi się wykonać jakiś programik (oczywiście z Waszą pomocą).
W niejednym już pomogłeś mi Ty i inni z forum, za co ponownie dziękuję
Nie szukam tutaj gotowego rozwiązania, proszę tylko o ukierunkowanie...

[chezare]

Michał, w moim pytaniu nie ma żadnej złośliwości, zastanawiam się tylko po co zastępować ctrl+I makrem? Jeśli chcesz sprawdzić czy się da, to da się na pewno. Nakan mówi, bardzo optymistycznie, że masz 1%, uruchom nagrywanie, zaimportuj pdfa, będziesz miał parę linijek kodu, zostanie wypełnienie listy nazwami plików, ale to nie będzie koniec, bo za chwilę zadasz sobie pytanie jak zaimportować tylko 2 i 4 stronę pdfa i jak sprawdzić ile ma stron? Zaczniesz myśleć, czy nie lepiej wywołać z makra windowsowego okienka importu? Później przyjdzie Ci do głowy że fajnie by było móc wybrać miejsce z którego się plik importuje, itd.
Ja trafiłem na forum z powodu VBA, chciałem dokładnie taką samą jak Twoja listę wypełnić nazwami fontów zainstalowanych w systemie, nie doczekałem się na pomoc, może Ty będziesz miał więcej szczęścia. Naukę zaczyna się od najprostszych zadań, ty próbujesz chyba od środka, choć mogę się mylić, nie znając stanu Twojej wiedzy w temacie VBA. Zadanie które sobie wymyśliłeś wcale nie jest proste do zrealizowania, to na pewno nie jest zerówka

[maroQ]

Można tak:

Kod:

Private path As String Private Sub ButtonImport_Click()     On Error GoTo err1         Dim tmp As String     tmp = ButtonImport.Caption     ButtonImport.Caption = "Czekaj..."     ButtonImport.Enabled = False     Me.Repaint             Dim impflt As ImportFilter     Dim impopt As StructImportOptions     Set impopt = New StructImportOptions     impopt.MaintainLayers = True     impopt.Mode = cdrImportFull     impopt.TextFormatting = cdrImportNoFormatting         Set impflt = ActiveLayer.ImportEx(path & "\" & ComboBoxFiles.Text, cdrPDF, impopt)     impflt.Finish         ButtonImport.Caption = tmp     ButtonImport.Enabled = True         MsgBox "Import zakończony", vbInformation, "Import pliku"     Exit Sub err1:     MsgBox "Podczas importu wystąpił błąd:" & vbNewLine & err.Description, vbCritical, "error " & err.Number End Sub Private Sub UserForm_Initialize()     Dim fName As String     path = "C:\temp"         fName = Dir(path + "\*.pdf")         ComboBoxFiles.Style = fmStyleDropDownList     ComboBoxFiles.SelText = fName         Do While fName <> ""         ComboBoxFiles.AddItem fName         fName = Dir     Loop     End Sub

Zmień sobie tylko ścieżkę do pliku w UserForm_Initialize i wszystko.

Wywołanie można zrobić z module wpisując np.:

Kod:

Sub RunIt()     CorelPDFImport.Show 0 End Sub

---

CorelPDFImport.7z Rozpakować gdzieś, po czym w edytorze makr prawy przycisk na np. GlobalMacros i tam import file.

Pobierz Plik ściągnięto 308 raz(y) 1.4 KB