Új hozzászólás Aktív témák

• #21619 KaiotEch nagyúr

  Új Válasz 2014-05-14 16:27:01 #21619

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  KaiotEch

  nagyúr

  Üdv. Segítséget kérnék. Van egy ilyenem:

  Sub KIOLVAS()
  ChDir "c:\kiolvas\"
  Workbooks.OpenText Filename:="fajl.txt", Origin:=852, _
  StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(16 _
  , 1), Array(19, 1), Array(30, 1), Array(40, 1), Array(50, 1)), DecimalSeparator:=".", _
  TrailingMinusNumbers:=True
  End Sub

  Azt szeretném hozzáfűzni, hogy ezt ne egy új ablakba nyissa meg, hanem a Munka1 lapon, majd a végén váltson át a Munka2-re.

  Hiába tettem az elejére, hogy:
  Sheets("Munka1").Select
  Cells.Select
  Selection.ClearContents

  és a végére:
  Sheets("Munka2").Select

  mégsem akarja.

Új hozzászólás Aktív témák