Salut,
Incerc sa fac un fisier excel care sa caute in mai multe fisiere excel un cuvant specific, dupa ce il gaseste sa imi selecteze un tabel format din 50 de randuri si 13 coloane si sa il copieze in fisierul de extragere.
Vreau sa copieze tabelele unul sub altul in fisierul de extragere:
Pana acum am partea asta de cod:
Sub ExtractData2()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim SelectedFiles() As Variant
Dim NRow As Long
Dim FileName As String
Dim NFile As Long
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Dim WhatToLook As Variant
'Create a new worksheet and set the name = curent weeknumber
Sheets.Add.Name = Format(Date, "YYWW")
Set SummarySheet = ActiveSheet
' Modify this folder path to point to the files you want to use.
FolderPath = "d:\LocalData\User12\Desktop\RAPURI"
' Set the current directory to the the folder path.
ChDrive FolderPath
ChDir FolderPath
'Open the file dialog box and filter on Excel files, allowing multiple files to be selected.
SelectedFiles = Application.GetOpenFilename( _
filefilter:="Excel Files (*.xl*), *.xl*", MultiSelect:=True)
' NRow keeps track of where to insert new rows in the destination workbook.
NRow = 1
' Loop through the list of returned file names
For NFile = LBound(SelectedFiles) To UBound(SelectedFiles)
' Set FileName to be the current workbook file name to open.
FileName = SelectedFiles(NFile)
' Open the current workbook.
Set WorkBk = Workbooks.Open(FileName)
' Select what to look for
WhatToLook = InputBox("What I'm looking for?", "Hello There", S1642)
SummarySheet.Range("A1").Value = "I'm looking for:"
SummarySheet.Range("B1").Value = WhatToLook.Text
' Cod lipsa
' Increase NRow so that we know where to copy data next.
NRow = NRow + DestRange.Rows.Count
' Close the source workbook without saving changes.
WorkBk.Close savechanges:=False
Next NFile
' Call AutoFit on the destination sheet so that all data is readable.
SummarySheet.Columns.AutoFit
End Sub
Imi lipseste partea cu ce sa caute, selectarea tabelului si copierea acestuia in fisierul de extragere.
Ma puteti ajuta?
Multumesc frumos!
Extragere date din mai multe workbook-uri
-
- Mesaje: 15
- Membru din: Vin Sep 16, 2016 1:43 pm
Extragere date din mai multe workbook-uri
Mesaj de mihainiculae92 » Vin Oct 14, 2016 10:04 am
Înapoi la “Visual Basic for Application (VBA) cu Excel - Intrebari tehnice”
Mergi la
- Administrative
- ↳ Anunturi
- ↳ Concursuri
- ↳ Condica de sugestii si reclamatii
- Comunitati IT Learning
- ↳ Office Specialist: Comunitatea Microsoft Office din Romania
- ↳ Microsoft Excel - Intrebari tehnice (legatura catre forumul dedicat Dr.Excel)
- ↳ Microsoft Access - Intrebari tehnice
- ↳ Invata Microsoft Access cu Echipa IT Learning
- ↳ Intrebari despre Access 2019
- ↳ Intrebari despre Access 2016
- ↳ Intrebari despre Access 2013
- ↳ Intrebari despre Access 2010
- ↳ Intrebari despre Access 2007
- ↳ Intrebari despre Access 2003
- ↳ Tips and tricks in Access (indiferent de versiune)
- ↳ Microsoft Word - Intrebari tehnice
- ↳ Invata Microsoft Word cu Echipa IT Learning
- ↳ Intrebari despre Word 2019
- ↳ Intrebari despre Word 2016
- ↳ Intrebari despre Word 2013
- ↳ Intrebari despre Word 2010
- ↳ Intrebari despre Word 2007
- ↳ Intrebari despre Word 2003
- ↳ Tips and tricks in Word (indiferent de versiune)
- ↳ Microsoft Outlook - Intrebari tehnice
- ↳ Invata Microsoft Outlook cu Echipa IT Learning
- ↳ Intrebari despre Outlook 2019
- ↳ Intrebari despre Outlook 2016
- ↳ Intrebari despre Outlook 2013
- ↳ Intrebari despre Outlook 2010
- ↳ Intrebari despre Outlook 2007
- ↳ Intrebari despre Outlook 2003
- ↳ Tips and tricks in Outlook (indiferent de versiune)
- ↳ Microsoft Powerpoint- Intrebari tehnice
- ↳ Invata Microsoft Powerpoint cu Echipa IT Learning
- ↳ Intrebari despre Powerpoint 2019
- ↳ Intrebari despre Powerpoint 2016
- ↳ Intrebari despre Powerpoint 2013
- ↳ Intrebari despre Powerpoint 2010
- ↳ Intrebari despre Powerpoint 2007
- ↳ Intrebari despre Powerpoint 2003
- ↳ Tips and tricks in Powerpoint (indiferent de versiune)
- ↳ Visual Basic for Application (VBA) - Intrebari tehnice
- ↳ Invata sa programezi in VBA de la Echipa IT Learning
- ↳ Alte programe din suita Microsoft Office
- ↳ Invata Microsoft Project cu Echipa IT Learning
- ↳ Dr.Excel: Comunitatea Microsoft Excel din Romania
- ↳ Microsoft Excel - Intrebari tehnice
- ↳ Invata Microsoft Excel cu Echipa Dr.Excel
- ↳ Intrebari despre Excel 2019
- ↳ Intrebari despre Excel 2016
- ↳ Intrebari despre Excel 2013
- ↳ Intrebari despre Excel 2010
- ↳ Intrebari despre Excel 2007
- ↳ Intrebari despre Excel 2003
- ↳ Tips and Tricks Excel
- ↳ Probleme cu aplicatiile ce folosesc Excel ca aplicatie ajutatoare
- ↳ Visual Basic for Application (VBA) cu Excel - Intrebari tehnice
- ↳ Invata sa programezi in VBA de la Echipa Dr.VBA
- ↳ Power Query & Power Pivot
- ↳ Dr.Windows: Comunitatea Microsoft Windows din Romania
- ↳ Microsoft Windows - Intrebari tehnice
- ↳ Invata Microsoft Windows cu Echipa IT Learning
- ↳ Intrebari despre Windows 10
- ↳ Intrebari despre Windows 8
- ↳ Intrebari despre Windows 7
- ↳ Intrebari despre Windows Vista
- ↳ Intrebari despre Windows XP
- ↳ Intrebari despre ALTE versiuni de Windows
- Servicii IT Learning
- ↳ Despre cursurile in clasa
- ↳ Despre cursurile online (www.office-learning.ro)
- ↳ Discutii despre Cursurile Office-Learning
- ↳ Cursurile interactive de Excel
- ↳ Cursurile interactive de Access
- ↳ Cursurile interactive de Powerpoint
- ↳ Cursurile interactive de Word
- ↳ Cursurile interactive de Outlook
- ↳ Despre certificarile Microsoft
- Diverse
- ↳ Discutii libere (Cafenea)
- ALTE FORUMURI ROMANESTI
- ↳ CODEXPERT