Topic
ActiveX Fehler bei VBA
Page d'accueil ' Communauté ' Automation et VBA ' Erreur ActiveX avec VBA
- Ce sujet contient 2 réponses, 2 participants et a été mis à jour pour la dernière fois par Nils Jagodzinski, le il y a 13 années.
-
AuteurMessages
-
24.04.2012 à 12:37 #35116Nils JagodzinskiParticipant
Hallo,
Ich versuche momentan mehrere Excel Tabellen in einen Datensatz von Flexpro zu schreiben.
Hierbei habe ich versucht, Flexpro über VBA zu steuern.
Der VBA-Code ist soweit geschrieben, jedoch erhalte ich immer die Meldung:Laufzeitfehler 429
Objekterstellung durch ActiveX-Kompomente nicht möglich.Ich habe schon gelesen, dass dies ein Fehler von einer DLL datei von Microsoft sein kann. Aber auch ein ersetzen dieser half nicht weiter.
Jetz stellt sich mir die Frage, ob ich doch etwas im Code falsch gemacht hab.
Hier ein kurzer Ausschnitt in dem ich FlexPro anspreche:
Set oApp = GetObject(, “FlexPro.Application”)
If oApp Is Nothing Then
Set oApp = New FlexPro.ApplicationEnd If
wobei schon bei dem ersten Befehl der Laufzeitfehler auftritt.
Sollte es Tatsächlich an meinem PC liegen, würde ich gerne wissen, ob es noch eine Methode gibt, in einer Exceldatei, welche in Flexpro importiert ist, einzelne Zellen anzusprechen und diese dann in einen Flexpro Datensatz zu kopieren.
In der Exceldatei liegen die Daten in der Form
Nr QMin QMax Qstat
1l 74,16 109,46 94,08
1r 77,78 131,71 102,53
1A RL_L : 9,59
2l 68,08 117,52 94,01
2r 68,2 121,53 101,29
2A RL_L : 9,58
3l 73,87 121,76 95,07vor, wobei ich die einzelnen Qs in einzelne Datensätze schreiben möchte.
vielen Dank im Vorraus
Jagsus
24.04.2012 à 12:37 #35118Nils JagodzinskiParticipantHallo,
Ich versuche momentan mehrere Excel Tabellen in einen Datensatz von Flexpro zu schreiben.
Hierbei habe ich versucht, Flexpro über VBA zu steuern.
Der VBA-Code ist soweit geschrieben, jedoch erhalte ich immer die Meldung:Laufzeitfehler 429
Objekterstellung durch ActiveX-Kompomente nicht möglich.Ich habe schon gelesen, dass dies ein Fehler von einer DLL datei von Microsoft sein kann. Aber auch ein ersetzen dieser half nicht weiter.
Jetz stellt sich mir die Frage, ob ich doch etwas im Code falsch gemacht hab.
Hier ein kurzer Ausschnitt in dem ich FlexPro anspreche:
Set oApp = GetObject(, “FlexPro.Application”)
If oApp Is Nothing Then
Set oApp = New FlexPro.ApplicationEnd If
wobei schon bei dem ersten Befehl der Laufzeitfehler auftritt.
Sollte es Tatsächlich an meinem PC liegen, würde ich gerne wissen, ob es noch eine Methode gibt, in einer Exceldatei, welche in Flexpro importiert ist, einzelne Zellen anzusprechen und diese dann in einen Flexpro Datensatz zu kopieren.
In der Exceldatei liegen die Daten in der Form
Nr QMin QMax Qstat
1l 74,16 109,46 94,08
1r 77,78 131,71 102,53
1A RL_L : 9,59
2l 68,08 117,52 94,01
2r 68,2 121,53 101,29
2A RL_L : 9,58
3l 73,87 121,76 95,07vor, wobei ich die einzelnen Qs in einzelne Datensätze schreiben möchte.
vielen Dank im Vorraus
Jagsus
23.05.2012 à 16:09 #35117Bernhard KantzParticipantIf you want to write a VBA macro in FlexPro it’s not necessary to create an application object!
In FlexPro you can create an Excel data link object to access the Excel data sheet values.
Example:
[i]
Dim oExcelFolder As ExcelFolder
Dim oExcelDL As ExcelDataLink
Set oExcelFolder = ThisDatabase.RootFolder.Object(“Excel Workbook”, fpObjectTypeExcelWorkbook)
Set oExcelDL = oExcelFolder.Add(“ExcelDataLink”, fpObjectTypeExcelDataLink)
With oExcelDL
.YComponent = “Table1!A1:A3”
.Update
End With
[/i]
support@weisang.com -
AuteurMessages
- Vous devez être connecté pour répondre à ce sujet.