VBA.Mania

vbamania.pl

Dziś jest sobota, 18 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Błąd przy FileDialog otwarty rozpoczął: damianel postów: 10

napisał: damianel postów: 35 umieszczony: 29 czerwca 2010 16:07
	znalazłem kod i po czesci dziala, bo sa przypadki, że np. jak zamukam okno krzyzykiem to sie wysypuje. Prosze o pomoc Sub updateAttribute() ' Excel SCAPI sample ' This Creates an Instance of SCApplication Set SCApp = CreateObject("AllfusionERwin.SCAPI") 'Declare a variable as a FileDialog object. Dim fd As FileDialog 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Filters.Clear fd.Filters.Add "Erwin File", "*.erwin", 1 If (fd.Show = -1) Then strFileName = fd.SelectedItems.Item(1) Else Exit Sub End If 'Set the object variable to Nothing. Set fd = Nothing ' This is the name of the ERwin Model that needs to be updated Set SCPUnit = SCApp.PersistenceUnits.Add(strFileName) Set SCSession = SCApp.Sessions.Add SCSession.Open (SCPUnit) Set SCRootObj = SCSession.ModelObjects.Root Set SCRootObjCol = SCSession.ModelObjects.Collect(SCRootObj) Set EXWks = ThisWorkbook.Worksheets("Attribute Definition") ' Start a Transaction TransId = SCSession.BeginTransaction ................ i dalej reszta kodu która jest dobrze

napisał: damianel postów: 35 umieszczony: 29 czerwca 2010 14:36
	Excel 2000

napisał: admin postów: 613 umieszczony: 25 czerwca 2010 18:32
	Cytat: Project jest w Excel'u W której wersji? A może zamiast metody Excela spróbujesz klasy? Zobacz tu.

napisał: damianel postów: 35 umieszczony: 25 czerwca 2010 14:23
	Project jest w Excel'u

napisał: admin postów: 613 umieszczony: 24 czerwca 2010 11:53
	OK. W jakiej aplikacji macierzystej tworzysz swój projekt?

napisał: damianel postów: 35 umieszczony: 24 czerwca 2010 09:04
	w Tools ----> References-----> mam wlaczoną biblioteke Micfosoft office 9.0 object library.

napisał: admin postów: 613 umieszczony: 24 czerwca 2010 08:47
	Cytat: a co to znaczy? pisałem, ze jestem zielony z vba, korzystam z niego aby załadowac dane do innego programu zwiazanego z modelowaniem danych. Mam wlaczona biblioteke Microsoft Office 9.0 Object library Co to znaczy "Mam wlaczona biblioteke Microsoft Office 9.0 Object library"? Chodzi Ci o to, ze do swojego projektu masz podpięta referencje do tej biblioteki? W po pierwsze w jakiej aplikacji macierzystej tworzysz swój projekt? Twoje przyklad bedzie dzialal w Excelu i podpinanie innych bubliotek do projektu nic Ci nie da.

napisał: damianel postów: 35 umieszczony: 23 czerwca 2010 15:18
	a co to znaczy? pisałem, ze jestem zielony z vba, korzystam z niego aby załadowac dane do innego programu zwiazanego z modelowaniem danych. Mam wlaczona biblioteke Microsoft Office 9.0 Object library

napisał: admin postów: 613 umieszczony: 23 czerwca 2010 15:07
	A czy masz zdefiniowana klase/typ użytkownika FileDialog? Cytat: Jestem zielony z vba, a potrzbuje go do załadowania danych do innego programu. Dlaczego pokazuje mi sie ten błąd. Gdzie mam umieścić plik zeby był czytany??? Sub updateEntity() ' Excel SCAPI sample ' This Creates an Instance of SCApplication Set SCApp = CreateObject("AllFusionERwin.SCAPI") 'Declare a variable as a FileDialog object. Dim fd As FileDialog <----------------------------------------------------------------------tu sie sypie i pokazuje błąd 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Filters.Clear fd.Filters.Add "Erwin ERwin File", "*.erwin", 1 If (fd.Show = -1) Then strFileName = fd.SelectedItems.Item(1) Else Exit Sub End If 'Set the object variable to Nothing. Set fd = Nothing

napisał: damianel postów: 35 umieszczony: 23 czerwca 2010 14:25
	Jestem zielony z vba, a potrzbuje go do załadowania danych do innego programu. Dlaczego pokazuje mi sie ten błąd. Gdzie mam umieścić plik zeby był czytany??? Sub updateEntity() ' Excel SCAPI sample ' This Creates an Instance of SCApplication Set SCApp = CreateObject("AllFusionERwin.SCAPI") 'Declare a variable as a FileDialog object. Dim fd As FileDialog <----------------------------------------------------------------------tu sie sypie i pokazuje błąd 'Create a FileDialog object as a File Picker dialog box. Set fd = Application.FileDialog(msoFileDialogFilePicker) fd.AllowMultiSelect = False fd.Filters.Clear fd.Filters.Add "Erwin ERwin File", "*.erwin", 1 If (fd.Show = -1) Then strFileName = fd.SelectedItems.Item(1) Else Exit Sub End If 'Set the object variable to Nothing. Set fd = Nothing

wstecz 1 dalej

wszystkich stron: 1