MS Excel - vytvoření souboru *.bat

Vývojová prostředí, aplikace, skripty, http://www... síťové programy, internet, sdílení...
Odpovědět
karf
Středně pokročilý
Středně pokročilý
Uživatelský avatar
Registrován: 03. čer 2003
Bydliště: České Budějovice
Kontaktovat uživatele:

MS Excel - vytvoření souboru *.bat

Příspěvek od karf »

Mám prosbičku. Je možné z excelu vytvořit na zadané cestě na disku soubor s příponou txt nebo bat a vložit do něj obsah ze zadaného sloupce?
Díky
note:HP Pavilion Gaming i7 10870H, 16gb, rtx 2060, 1tb OS: MS Windows 10 Home x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64
S.h.I.t.
Začátečník
Začátečník
Registrován: 09. čer 2007
Bydliště: Hradec Králové

Re: MS Excel - vytvoření souboru *.bat

Příspěvek od S.h.I.t. »

Urcite to jde VBA skriptem, pres interni Fce excelu tusim ne.
napr https://www.extendoffice.com/documents/ ... o-text-vba
karf
Středně pokročilý
Středně pokročilý
Uživatelský avatar
Registrován: 03. čer 2003
Bydliště: České Budějovice
Kontaktovat uživatele:

Re: MS Excel - vytvoření souboru *.bat

Příspěvek od karf »

Našel jsem nějaké vzory, tak to podle toho chodí, akorát mi nefunguje, když mám aktivní jiný list, než na kterém jsou data a makro pustím třeba tlačítkem...přitom konkrétní list s daty je definovaný?

Kód: Vybrat vše

Sub ExportBalicekToBat()
  Dim PathObo As String
  Dim SCll As Range, SBlok As Range
  With Worksheets("BALÍČEK")
    PathObo = .Range("e9").Value
    If Right(PathObo, 1) <> "\" Then PathObo = PathObo & "\"
    PathObo = PathObo & .Range("e8").Value & ".bat"
    Open PathObo For Output Access Write As #1
    Set SBlok = .Range("a1", [a1200].End(xlUp))
    For Each SCll In SBlok.Cells
        Print #1, SCll.Value
    Next SCll
    Close #1
  End With
End Sub
Sub ExportArchivToBat()
  Dim PathObo As String
  Dim SCll As Range, SBlok As Range
  With Worksheets("SE_ARCHIV")
    PathObo = .Range("e9").Value
    If Right(PathObo, 1) <> "\" Then PathObo = PathObo & "\"
    PathObo = PathObo & .Range("e8").Value & ".bat"
    Open PathObo For Output Access Write As #1
    Set SBlok = .Range("a1", [a1200].End(xlUp))
    For Each SCll In SBlok.Cells
        Print #1, SCll.Value
    Next SCll
    Close #1
  End With
End Sub
note:HP Pavilion Gaming i7 10870H, 16gb, rtx 2060, 1tb OS: MS Windows 10 Home x64
Workstation: HP Z2: Intel Core i7 8700@4.6GHZ, 32gb, Quadro P620, 512GB Samsung M2, 2x HP Z24 G2 OS: MS Windows 10Pro x64
Odpovědět

Zpět na „Programování a web“