Excel VBA - GetObject Vyřešeno
Napsal: 11 bře 2019 14:53
Ahoj, měl bych otázku na někoho znalejšího, protože už mi dochází nápady.
Dostal jsem od známého požadavek na zápis dat do souboru excelu (Souhrn.xlsm) bez jeho "viditelného" otevření.
Jelikož mám zkušenosti s opačným postupem, tedy získání dat z takto otevřených sešitů, říkám si pohoda.
Otevření provedu přes GetObject, zapíšu data, uložím a zavřu soubor.
Problém je, že soubor poté nelze otevřít, nebo lépe řečeno se otevře "prázdný" excel bez viditelného listu (soubor obsahuje pouze jeden) a není zobrazen název souboru (Souhrn.xlsm), alej jen Excel viz obr
Pokud soubor otevřu přes workbooks.open není žádný problém a vše funguje jak má.
Máte někto tip jak z toho ven?
Díky
Dostal jsem od známého požadavek na zápis dat do souboru excelu (Souhrn.xlsm) bez jeho "viditelného" otevření.
Jelikož mám zkušenosti s opačným postupem, tedy získání dat z takto otevřených sešitů, říkám si pohoda.
Otevření provedu přes GetObject, zapíšu data, uložím a zavřu soubor.
Problém je, že soubor poté nelze otevřít, nebo lépe řečeno se otevře "prázdný" excel bez viditelného listu (soubor obsahuje pouze jeden) a není zobrazen název souboru (Souhrn.xlsm), alej jen Excel viz obr
Pokud soubor otevřu přes workbooks.open není žádný problém a vše funguje jak má.
Kód: Vybrat vše
Sub PrenosDat()
Dim wbEvidence As Workbook
Dim arrData()
Dim MaxRadek As Long
arrData = List1.Cells(1, 1).Resize(, 5).Value
Set wbEvidence = GetObject("F:\Souhrn.xlsm") 'Workbooks.Open("F:\Souhrn.xlsm")
With wbEvidence
With .Worksheets("List1")
MaxRadek = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(MaxRadek + 1, 1).Resize(, 5).Value = arrData
End With
.Save
.Close
End With
Set wbEvidence = Nothing
Erase arrData
End Sub
Máte někto tip jak z toho ven?
Díky
