< návrat zpět

MS Excel


Téma: runtime error rss

Zaslal/a 3.4.2015 3:20

Ahoj,

prosím o pomoc,při otvirání souborů mě to hodí runtime error 1004,že nemůže otevřít soubor,soubor existuje,první soubory to otevře v pořádku,budu vděčný za každou radu

Private Sub WODOWN_Click()
Windows("VYTAHDWS").Activate
Sheets("PP").Select

Dim x As Long
For x = 2 To 1000
For e = 2 To 1000
If Cells(x, 6) = ComboBox1.Value And Cells(x, 5) = ComboBox2.Value Then
Workbooks.Open Filename:= _
"http://10.17.196.142/MaterialManagement/Reports/ResultPageFullScreenLight.aspx?type=apsc_dps_lite&PlanID=" & Cells(x, 1).Value

ActiveWindow.Visible = False
Windows("ResultPageFullScreenLight.aspx").Visible = True
Windows("ResultPageFullScreenLight.aspx").Activate
For i = 2 To 2000
If Cells(i, 1).Value = "WO" Then
Range("A" & i + 1 & ":A" & LastRowInOneColumn("A")).Select
Selection.Copy
Windows("VYTAHDWS").Activate
Sheets("WO").Select
Range("A" & LastRowInOneColumn("A") + 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Windows("ResultPageFullScreenLight.aspx").Activate
Sheets("PP").Select
Range("H1").Select
Selection.Copy
Windows("VYTAHDWS").Activate
Sheets("WO").Select
Range("B" & LastRowInOneColumn("B") + 1 & ":B" & LastRowInOneColumn("A")).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Columns("A:B").Select
With Selection.Font
.Name = "Arial"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection.Font
.Name = "Arial"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
With Selection
.HorizontalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Windows("ResultPageFullScreenLight.aspx").Activate
Application.CutCopyMode = False
Windows("ResultPageFullScreenLight.aspx").Close savechanges:=False
Windows("VYTAHDWS").Activate
Sheets("PP").Select
End If
Next i
End If
Next x
Sheets("WO").Select
Range("C" & LastRowInOneColumn("C") + 1 & ":C" & LastRowInOneColumn("B")).Select
Selection.FormulaR1C1 = "=VLOOKUP(RC[-1],PP!R2C1:R500C6,2,FALSE)"
Range("D" & LastRowInOneColumn("D") + 1 & ":D" & LastRowInOneColumn("C")).Select
Selection.FormulaR1C1 = "=VLOOKUP(RC[-2],PP!R2C1:R500C6,5,FALSE)"
Range("E" & LastRowInOneColumn("E") + 1 & ":E" & LastRowInOneColumn("D")).Select
Selection.FormulaR1C1 = "=VLOOKUP(RC[-3],PP!R2C1:R500C6,6,FALSE)"
MsgBox "WO staženy ! "
End Sub

Zaslat odpověď >

#024380
avatar
For e tam nemá být :) nesmazal jsem hocitovat
#024381
elninoslov
Nemôžeš priložiť nejaké prílohy aspoň z časťou zverejniteľných dát ? To sa takto veľmi ťažko odhaduje. Ten súbor na sieti nemá otvorený iný uživateľ ? Ten Button WODOWN je na ktorom zožite ? V tej komplikovanej spleti Activate - Visible - Cells (bez upresnenia zošita a listu napr cez With) a Select, sa ľahko stane že čítaš data z iného miesta ako chceš.
Pokúšam sa o rekonštrukciu toho, ako to môže u Teba vyzerať, ale fakt sa strácam v odhadovaní čo, ako, a kde.
Chce to proste prílohy.citovat
#024395
avatar
AHoj,otevre to odkaz,zkopiruje data a zavre,prnich par souboru to otevre pak to hodi error,kdyz ten odkaz otevru rucne,tak to jde,kdyz dam dabug pokracovat,tak to dobehne do konce,priloha nebude k nicemu,protoze odkaz neotevrescitovat
#024396
avatar

Jirkapce napsal/a:

AHoj,otevre to odkaz,zkopiruje data a zavre,prnich par souboru to otevre pak to hodi error,kdyz ten odkaz otevru rucne,tak to jde,kdyz dam dabug pokracovat,tak to dobehne do konce,priloha nebude k nicemu,protoze odkaz neotevres

Takže si to máme sami nasimulovať? 4citovat
#024402
elninoslov
Vôbec nejde len o pripojenie sa k tebe na sieťový zdroj. Ide o celý návrh. Ale neva. Skúsil by som súbor najskôr stiahnuť na PC a až potom spracovávať:
Sub DownloadFile()
Dim myURL As String
myURL = "http://sheetsibca.pbworks.com/w/file/fetch/38012029/excel%20lesson%203%20test.xlsx"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "Z:\chyba\excel%20lesson%203%20test.xlsx", 2 ' 1 = no overwrite, 2 = overwrite
oStream.Close
End If
' Súbor treba po použiťí Zatvoriť a potom ZMAZAT týmto príkazom
Kill ("Z:\chyba\excel%20lesson%203%20test.xlsx")
End Sub
citovat
#024424
avatar
jak vložim přílohu ?:)citovat
#024425
avatar
Ještě jeden poznatek,kdyz soubory zaviram rucne,tak to taky error nehodí :(citovat
#024428
elninoslov
Keď dáš tlačítko "Zaslat odpověd", tak nad políčkom kam píšeš, je "Příloha" a vedľa je tlačítko "Vybrať súbor". Cez toto vyberieš u Teba v PC uložený archív RAR, so zabaleným súborom/súbormi.

Skús ako som ti písal, ten súbor stiahnuť do PC, a z PC ho otvor. Neotváraj ho rovno zo siete. Tá metóda DownloadFile(), čo som ti poslal mi funguje. Samozrejme sa to dá prispôsobiť, že myURL bude parameter...citovat
#024430
avatar

Jirkapce napsal/a:

jak vložim přílohu ?:)

Skús sa najprv zaregistrovať.citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09