AW: Falscher Code, I'm out!, sorry (owT)
05.03.2009 14:41:31
Werner
Ich habe doch einen Code gepostet...
Vielleicht ist es das hier was du meinst?
Sub Start()
Dim liDurchlauf As Integer
'erhöhe den Wert 1 to ? um so viele Durchläufe, wie du benötigst
For liDurchlauf_IE = 1 To 6
Select Case liDurchlauf_IE
Case 1
'Call neue_IE_instanz("file:///M:/Koblenz/Projects/Statistik/ _
Arbeitshilfe_DMS/ArbAwKoblenz/Index.htm")
Call neue_IE_instanz(Range("C6").Value)
Case 2
Call neue_IE_instanz(Range("C7").Value)
Case 3
Call neue_IE_instanz(Range("C8").Value)
Case 4
Call neue_IE_instanz(Range("C9").Value)
Case 5
Call neue_IE_instanz(Range("C10").Value)
Case 6
Call neue_IE_instanz(Range("C11").Value)
'Case 7
' Call neue_IE_instanz(Range("C12").Value)
End Select
Next
'erhöhe den Wert 3 um so viele Durchläufe, wie du benötigst
For liDurchlauf_XL = 1 To 1
Select Case liDurchlauf_XL
Case 1
'trage hier deine richtigen Pfade + Dateinamen ein
'Call NeueXLSitzung("M:\Koblenz\Projects\Statistik\Arbeitshilfe_DMS\ _
ArbAwKoblenz\Abgabe Bea\Abgabe BEA.xls")
' Case 2
' Call NeueXLSitzung("D:\aMappe2.xls")
' Case 3
' Call NeueXLSitzung("D:\kopie.xls")
'Case X
'vervollständige Case X analog zu liDurchlauf
End Select
Next
Application.WindowState = xlMaximized
ThisWorkbook.Windows(1).WindowState = xlMaximized
'Application.Wait Now + TimeSerial(0, 0, 3)
ThisWorkbook.Activate
Application.Wait Now + TimeSerial(0, 0, 2)
ThisWorkbook.Close
End Sub
Sub neue_IE_instanz(ByVal URL_Neu As String)
Dim myIE As Object
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Visible = True 'True
myIE.Navigate (URL_Neu)
' myIE.fullscreen = False 'True
' Do While myIE.Busy
' Loop
' Do While myIE.Document.readyState "complete"
' Loop
Set myIE = Nothing
End Sub
Nicht um sonst steht bei mir, dass ich kein VBA-Profi bin.
Ich dachte ich hätte das Richtige geschickt.
Werner