Das Makro macht eine Webabfrage, und ziehst mir Informationen aus unserem System.
Sub Makro1()
' Makro1 Makro
' Makro am 18.09.2007 von mir aufgezeichnet
Workbooks.Add
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://meinedomain.de=true"
_
, Destination:=Range("A1"))
.Name = "BulkEdit1!default.jspa?tempMax=452&reset=true"
.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
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
ChDir "C:\Dokumente und Einstellungen\ich\Desktop\test2"
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\ich\Desktop\test2\jira.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
Wenn ich es ausführe klappt alles super, sobald ich aber die xls schliesse und das Makro wieder ausführen möchte importiert er nichts. Wo liegt mein Fehler?
Es klappt alles super bis ich die Datei schließe und eine neue Abfrage ausführen möchte...