Excel VBA - GetObject Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Uživatelský avatar
Grimm
Level 1
Level 1
Příspěvky: 65
Registrován: září 17
Pohlaví: Muž

Excel VBA - GetObject  Vyřešeno

Příspěvekod Grimm » 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á.

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
Nemáte oprávnění prohlížet přiložené soubory.



Reklama
Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 12
Elite Level 12
Příspěvky: 16180
Registrován: březen 10
Pohlaví: Muž

Re: Excel VBA - GetObject

Příspěvekod ITCrowd » 11 bře 2019 15:57

Zkus vbs.
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.WorkBooks.Open...
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
Grimm
Level 1
Level 1
Příspěvky: 65
Registrován: září 17
Pohlaví: Muž

Re: Excel VBA - GetObject

Příspěvekod Grimm » 11 bře 2019 16:09

Bingo !!!
Funguje, díky moc.

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 12
Elite Level 12
Příspěvky: 16180
Registrován: březen 10
Pohlaví: Muž

Re: Excel VBA - GetObject

Příspěvekod ITCrowd » 11 bře 2019 16:12

Rádo se stalo :-)
Označ téma jako vyřešené (zelené zatržítko).
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • MS Office Excel: VBA - Přiřazení názvu k .pdf vygenerovanému souboru
    od Klamer » 30 dub 2019 19:08 » v Kancelářské balíky
    2
    264
    od Goo
    01 kvě 2019 14:18
  • Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
    od Pavel Křivánek » 26 lis 2018 15:04 » v Kancelářské balíky
    3
    827
    od MePExG
    28 lis 2018 21:30
  • VBA formatovanievanie
    od tsibee » 09 led 2019 11:18 » v Kancelářské balíky
    1
    422
    od atari
    09 led 2019 12:13
  • VBA makro rada
    od Dusan150 » 28 úno 2019 11:47 » v Kancelářské balíky
    12
    1049
    od Dusan150
    02 bře 2019 16:56
  • VBA - úprava dat
    od Listers » 25 dub 2019 09:15 » v Kancelářské balíky
    5
    527
    od Listers
    26 dub 2019 21:08

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 3 hosti