AW: fehlermeldung ? o.T.
21.09.2007 14:28:00
Julia
Sorry es hat geklappt als ich es mit alt-f11 eingefügt habe
ich habe ja noch eine Webafrage als Makro
Kann ich das in ein Makro packen?
d.h. erst dein Makro dann meins?
Sub Makro6()
' Makro6 Makro
' Makro am 21.09.2007 von mir aufgezeichnet
Workbooks.Add
Application.WindowState = xlMinimized
Application.WindowState = xlMinimized
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://meineUrl
_
, Destination:=Range("A1"))
.Name = _
"order=DESC&tempMax=2000&os_username=user&os_password=pass"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """issuetable"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll ToRight:=3
Columns("F:F").Select
Selection.Insert Shift:=xlToRight
Range("F1").Select
ActiveCell.FormulaR1C1 = "Status"
Range("F2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-1],LEN(RC[-1])/2)"
Range("F2").Select
Selection.AutoFill Destination:=Range("F2:F1408"), Type:=xlFillDefault
Range("F2:F1408").Select
ActiveWindow.ScrollRow = 1360
ActiveWindow.ScrollRow = 1353
ActiveWindow.ScrollRow = 1344
ActiveWindow.ScrollRow = 1333
ActiveWindow.ScrollRow = 1319
ActiveWindow.ScrollRow = 1299
ActiveWindow.ScrollRow = 1276
ActiveWindow.ScrollRow = 1258
ActiveWindow.ScrollRow = 1235
ActiveWindow.ScrollRow = 1200
ActiveWindow.ScrollRow = 1166
ActiveWindow.ScrollRow = 1127
ActiveWindow.ScrollRow = 1094
ActiveWindow.ScrollRow = 1055
ActiveWindow.ScrollRow = 1021
ActiveWindow.ScrollRow = 992
ActiveWindow.ScrollRow = 969
ActiveWindow.ScrollRow = 940
ActiveWindow.ScrollRow = 908
ActiveWindow.ScrollRow = 874
ActiveWindow.ScrollRow = 834
ActiveWindow.ScrollRow = 791
ActiveWindow.ScrollRow = 762
ActiveWindow.ScrollRow = 744
ActiveWindow.ScrollRow = 728
ActiveWindow.ScrollRow = 705
ActiveWindow.ScrollRow = 678
ActiveWindow.ScrollRow = 638
ActiveWindow.ScrollRow = 604
ActiveWindow.ScrollRow = 581
ActiveWindow.ScrollRow = 561
ActiveWindow.ScrollRow = 547
ActiveWindow.ScrollRow = 532
ActiveWindow.ScrollRow = 518
ActiveWindow.ScrollRow = 498
ActiveWindow.ScrollRow = 480
ActiveWindow.ScrollRow = 461
ActiveWindow.ScrollRow = 443
ActiveWindow.ScrollRow = 423
ActiveWindow.ScrollRow = 400
ActiveWindow.ScrollRow = 376
ActiveWindow.ScrollRow = 358
ActiveWindow.ScrollRow = 339
ActiveWindow.ScrollRow = 321
ActiveWindow.ScrollRow = 301
ActiveWindow.ScrollRow = 278
ActiveWindow.ScrollRow = 260
ActiveWindow.ScrollRow = 243
ActiveWindow.ScrollRow = 229
ActiveWindow.ScrollRow = 215
ActiveWindow.ScrollRow = 200
ActiveWindow.ScrollRow = 188
ActiveWindow.ScrollRow = 177
ActiveWindow.ScrollRow = 166
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 143
ActiveWindow.ScrollRow = 134
ActiveWindow.ScrollRow = 125
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 109
ActiveWindow.ScrollRow = 100
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 85
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 66
ActiveWindow.ScrollRow = 58
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 46
ActiveWindow.ScrollRow = 42
ActiveWindow.ScrollRow = 39
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 1
Columns("F:F").Select
Selection.Copy
Columns("E:E").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("F:F").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A1").Select
ChDir _
"J:\IM\Projekte\ICeD\07 Testcenter\70 R 2007_P1-r0.5\10 Common\10 Cockpit\test\ _
Graphiken"
ActiveWorkbook.SaveAs Filename:= _
"J:\IM\Projekte\ICeD\07 Testcenter\70 R 2007_P1-r0.5\10 Common\10 Cockpit\test\ _
Graphiken\daten.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Windows("Status Testvorbereitung_v0.2.xls").Activate
Windows("daten.xls").Activate
ActiveWindow.Close
End Sub