xlApp.Workbooks()

[maraga]

Zdravím, vedel by niekto poradiť

Mám časť makra na ukladanie aktuálneho súboru, a súborov MyFile2, MyFile3 do inej zložky(KW):
problém je v tom, zošity MyFile2, MyFile3 už mi nechce po uložení zatvoriť pomocou xlApp.Workbooks(MyFile2).Close zatvoriť

máte nejaký nápad, kde by mohol byť problém???

If odp = vbYes Then

ActiveWorkbook.SaveCopyAs Filename:= KW & "\" & ThisWorkbook.Name

Application.StatusBar = "Oteviram sesit " & MyFile2

xlApp.Workbooks.Open (Application.ThisWorkbook.Path & "\" & MyFile2)
xlApp.Workbooks(MyFile2).SaveCopyAs Filename:=KW & "\" & MyFile2

Application.StatusBar = "Oteviram sesit " & MyFile3

xlApp.Workbooks.Open (Application.ThisWorkbook.Path & "\" & MyFile3)
xlApp.Workbooks(MyFile3).SaveCopyAs Filename:=KW & "\" & MyFile3

End If

xlApp.Workbooks(MyFile2).Close
xlApp.Workbooks(MyFile3).Close

End If
Application.StatusBar = False

End Sub

ĎAKUJEM

[Reklama]

[cmuch]

Tak mě to jde

Kód: Vybrat vše

Sub ulozjako()

Dim xlApp As New Excel.Application

    MyFile2 = "soubor2.xls"
    MyFile3 = "soubor3.xls"

    ActiveWorkbook.SaveCopyAs Filename:=KW & "\" & ThisWorkbook.Name

    Application.StatusBar = "Oteviram sesit " & MyFile2

    xlApp.Workbooks.Open (Application.ThisWorkbook.Path & "\" & MyFile2)
    xlApp.Workbooks(MyFile2).SaveCopyAs Filename:=KW & "\" & MyFile2

    Application.StatusBar = "Oteviram sesit " & MyFile3

    xlApp.Workbooks.Open (Application.ThisWorkbook.Path & "\" & MyFile3)
    xlApp.Workbooks(MyFile3).SaveCopyAs Filename:=KW & "\" & MyFile3

    xlApp.Workbooks(MyFile2).Close
    xlApp.Workbooks(MyFile3).Close
   
    Application.StatusBar = False

End Sub

Vyhazuje to nějakou chybu

[maraga]

no mne soubory ulozi ale potom ako keby sa zasekol a stale nieco nacitava ako keby subory(MyFile) nemohol zatvorit. tak neviem

[cmuch]

Zkus použít jinou možnost pro otevreni souboru

Kód: Vybrat vše

Sub Otevre_Soubor()

'1.moznost
'************************
  Set aWorkbook = Workbooks.Open("d:\Documents and Settings\data\aaa.xls")
  ' zavre bez ulozeni
  aWorkbook.Close False
  Set aWorkbook = Nothing

'2.moznost
'************************
  sesit = "aaa.xls"

  Workbooks.Open Filename:="d:\Documents and Settings\data\" & sesit
  ' zavre bez ulozeni
  Workbooks(sesit).Close False
 
'3.moznost
'************************
  Set SWbk = GetObject("d:\Documents and Settings\data\aaa.xls") ' otevre skryte jako objekt VBA, pozor nutno zavrit bez zmen
  SWbk.Close False
  Set SWbk = Nothing
 
'4.moznost
'*************************
  Dim xlApp As New Excel.Application
 
  sesit = "aaa.xls"
 
  xlApp.Workbooks.Open ("d:\Documents and Settings\data\" & sesit)
  xlApp.Workbooks(sesit).Close
 
End Sub