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

• #22335 Brutis csendes tag

  Új Válasz 2014-07-08 12:27:55 #22335

  Ú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

  

  Brutis

  csendes tag

  Sziasztok!

  Nekem olyan problémám lenne, hogy ndb *.xls fájlt kellene beolvasnom egy mappából, a fájlokban szereplő munkalapokon(ezek változóak 2-20 között) táblázatoknak meghatározott részeit kellene átmásolni egy nagy táblázatba úgy ,hogy a munkalapok nevei az A oszlopba kerüljenek a meghatározott adatok pedig ugyanabba a sorba , szintén az előre lefixált helyükre.
  Ha valakinek van ötlete azt nagy örömmel fogadom.
  A segítséget előre is köszönöm

  A beolvasást eddig kétféleképpen próbáltam de nem igazán kristályosodott még ki.
  Sub talloz()

  'mappa ki tallózása
  With Application.FileDialog(msoFileDialogFolderPicker)
  .AllowMultiSelect = False
  If .Show = -1 Then

  File_name = .SelectedItems(1)
  End If
  End With

  ' Call main(File_name)

  End Sub

  2. próbálkozás:

  Sub megnyitás() ' tallózás

  Dim fileName As String

  fileName = Application.GetOpenFilename("Comma Separated Values (*.xls),*.xls")

  If fileName <> "False" Then
  Workbooks.Open fileName, Format:=2
  End If
  End Sub

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