PCTuning fórum

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

Urcite to jde VBA skriptem, pres interni Fce excelu tusim ne.
napr https://www.extendoffice.com/documents/ ... o-text-vba

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

PCTuning fórum

MS Excel - vytvoření souboru *.bat

MS Excel - vytvoření souboru *.bat

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

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