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

• #28801 Kobe veterán

  Új Válasz 2015-09-28 14:55:40 #28801

  Ú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

  

  Kobe

  veterán

  sziasztok

  VBA-val kapcsoaltban kellene kis help

  Egy makroval szeretnek megnyitni egy filet - ez egy SAP-bol letoltott sima local file, text tab delimited ("Text with columns" formatum, ha ez tobbet mond).
  Olyan modon szeretnem megnyitni, hogy a user tallozza ki magat a nyersfilet a sajatgeperol (tehat nem en adom meg az eleresi utvonalat), azonban egy kicsit bajban vagyok a formatumokkal.A tallozas resze megy is, de a kod nem kepes a text tab delimited filet megnyitni, hiaba jatszottam a formatumokkal / filetipusokka, minding type mismatch hibara fut az If feltetelnel:

  Sub FormatRawDownload()
  
  Dim strFileToOpen As String
  MsgBox "Please select the downloaded raw report to open"
  strFileToOpen = Application.GetOpenFilename _
  (Title:="Please select the downloaded raw report to open", _
  FileFilter:="Excel Files *.xls* (*.xls*),")
  
  'FileFilter:="Text Files *.txt* (*.txt*),")
  
  If strFileToOpen = False Then
  MsgBox "No file selected.", vbExclamation, "Sorry!"
  Exit Sub
  Else
  Workbooks.Open Filename:=strFileToOpen
  End If
  End Sub

  mit kellene hegeszteni rajta ?

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