Hallo zusammen,

ich habe noch nicht so viele Erfahrungen in der VBA-Programmierung und komme grad nicht weiter. Hoffe ihr könnt mir vielleicht helfen.

Ich habe das Programm iMacros (automatisieren Routine-Arbeiten im Webbrowser) und eine Tabelle in Access. iMacros soll die Suchparameter aus der Tabelle (Datenbank) in Access herausnehmen. Funktioniert in Excel prima, aber in Access leider nicht.

Kann mir jemand helfen und mir schildern was ich genau wo umschreiben muss, damit die Sytax auch in Access läuft?

Hier die Sytanx:

Sub CommandButton1_Click()
   
   Dim iim1, iret, row, totalrows
  
   Set iim1 = CreateObject("imacros")
   iret = iim1.iimOpen
   iret = iim1.iimDisplay("Submitting Data")
  
   totalrows = ActiveSheet.UsedRange.Rows.Count
     
   For row = 2 To totalrows
      iret = iim1.iimSet("Kraftstoff")
      iret = iim1.iimSet("Radius")
      iret = iim1.iimSet("Stadt")
      iret = iim1.iimSet("Tankstellen")
           
      iret = iim1.iimDisplay("Row# " + CStr(row))
      
      
      iret = iim1.iimPlay("#Current_Benzinpreise")
      If iret < 0 Then
         'MsgBox iim1.iimGetLastError()
      End If
   Next row
  
   iret = iim1.iimDisplay("Submission complete")
   iret = iim1.iimExit
  
   End Sub

1. Problem taucht inder Zeile " totalrows = ActiveSheet.UsedRange.Rows.Count" auf und 2. dann in der Zeile "For row = 2 To totalrows".

in Excel sah die Syntax so aus:

Sub CommandButton1_Click()
   
   Dim iim1, iret, row, totalrows, Preis
  
   Set iim1 = CreateObject("imacros")
   iret = iim1.iimOpen
   iret = iim1.iimDisplay("Submitting Data from Excel")
  
   totalrows = ActiveSheet.UsedRange.Rows.Count
   For row = 2 To totalrows
      
      iret = iim1.iimSet("Kraftstoff", Cells(row, 1).Value)
      iret = iim1.iimSet("Radius", Cells(row, 2).Value)
      iret = iim1.iimSet("Stadt", Cells(row, 3).Value)
      iret = iim1.iimSet("Tankstellen", Cells(row, 4).Value)
     
      
      iret = iim1.iimDisplay("Row# " + CStr(row))
      
      
      iret = iim1.iimPlay("#Current_Benzinpreise")
      If iret < 0 Then
         'MsgBox iim1.iimGetLastError()
      End If
   Next row
  
   iret = iim1.iimDisplay("Submission complete")
   iret = iim1.iimExit
  
   Preis = iim1.iimGetExtract(2)
  
   End Sub

Lief so einwandfrei.

Vielan Dank schon mal für eure Hilfe. Bin noch ein Neueinsteiger muss noch einiges lernen :)

LG

Alex