Import As Sheet Form The Same Folder As The Worksheet
Jul 27, 2007
i want to import a file called "export" into my work sheet, I recorded this macro
Sheets.Add
ActiveSheet.OLEObjects.Add(Filename:= _
"C:Documents and SettingsmattDesktopexport.csv", Link:=False, _
DisplayAsIcon:=False).Select
which works as long as it is on matt's pc and on my desktop, what i need is to import the file from the same folder the work sheet is stored in, that way it will work on any pc?
View 14 Replies
ADVERTISEMENT
Sep 7, 2006
I have found the code shown below that imports Folder Contents into a Worksheet in Excel, however i need to import a folder tree structure for a set of folders into a worksheet not the folder contents. Is it possible to do this?
Could the code i found below be altered to list the folders not the folder contents?
The code is:
Sub Print_Dir_Contents()
Dim Input_Dir, Print_File As String
Input_Dir = InputBox("Input the path containing the files you " & _
"want to list on your worksheet" & Chr(13) & Chr(13) & _
"for example:C:My Documents*.*")
If Input_Dir = "" Then Exit Sub
' If you want only to print a specific file type, you can
' substitute the "*.*" with "*.xl*"
' (for Excel files only) for the directory specified in the
' InputBox above.
If Application.OperatingSystem Like "*Win*" Then
Print_File = Dir(Input_Dir) & "*.*"
End If
View 9 Replies
View Related
Sep 26, 2007
I have a variable list. Each column will be 250 digits and numbers of rows will be variable. I want a macro to import a text file from a specific folder into a sheet without split it to columns. So we will work only in column A
Then macro will find B1002 wording in A1. if it is exist, it will copy the next 36 digits after B1002 wording if not then it will search A2 row. The next step will be to search and find another wording "B1001" if it finds it will replace copied 36 digits text. If it can not find B1001 wording it will go to upper row and search B1001 wording here and paste the text. This will go on till row shows #END. This means it reached the end of the list. And then macro will save this file as text file to another folder.
So macro will go to beginning to open other file in the folder and this will go on till last file in the folder.
This is the logic of the macro. Here is the sample of what I want.
Original Data: ....
View 9 Replies
View Related
Jul 22, 2008
I have inserted the code above to my macro. Instead of '& ThisWorkbook.Path', what do I type to specify to import from the folder that I just browsed for? ...
View 10 Replies
View Related
Apr 4, 2014
I have the attached xl. I want to make import from a specific folder other xl files and after that I want the sheet 1 to find if the values in column g and m (together in the same time) can find it in other xl files. If yes then this values in sheet 1 must turn to red. Can this done?
View 1 Replies
View Related
Aug 26, 2008
I have an Excel workbook with 2 worksheets in it. One of the worksheets imports a txt file and then the other worksheet displays data that formulas I have written have collected.
I usually import the txt file by running through the many steps with the "import data" option. This is good but I want it to be faster.
I used the macro recorder and ended up with the following code
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;\DesktopImport FolderTest.txt" _
, Destination:= Range("A1"))
.Name = "Test"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
View 5 Replies
View Related
Feb 10, 2013
I have problem on trying to copy value from another workbook in specific folder this my marcro that i record
Code:
Sub Macro3()
Windows("TSOM_SLA_daily_20130207.xls").Activate
Cells.Select
Selection.Copy
Windows("Autoreport.xlsx").Activate
[Code] .........
Below code that is about filter code, but above what is the code for import the value (only value don't need any format).
I want to use VBA button because it will be easier for next time if i want to update my work.
View 1 Replies
View Related
Oct 17, 2007
Import Multiple Text Files & List Names
I would like to use FileDailogFolderPicker object to prompt the Excel User (me!) to browse to the location of the folder which is required to execute the code below; at the moment I have to change the file path in the VBA code each time I run the macro. The code is run on a Click Event button at present.
Private Sub GetGPCFiles_Click()
test
End Sub
Sub test()
Dim myDir As String, fn As String, ff As Integer, txt As String, a()
Dim x, i As Long, n As Long, b(), t As Long
myDir = "Y:DCCRSP07RSPWE191007131007GPC" 'Have to input this path manually
fn = Dir(myDir & "*.gpc")
Do While fn <> ""
ff = FreeFile
Open myDir & "" & fn For Input As #ff
Do While Not EOF(ff)
Line Input #ff, txt
x = Split(txt, ",")
n = n + 1
Redim Preserve a(1 To n)
a(n) = x
Loop
View 6 Replies
View Related
Mar 11, 2014
Doing all 47 pages at once may cause their site to block your IP. Though usually only temporarily - a few minutes to a few days. You could do it in sessions by changing "For i = 1 To 47" to the appropriate page numbers. After each session be sure to rename the "Stats" sheet as the code starts by deleting and re-creating it. After all sessions combine the various "Stat" sheets.
Doing all 47 at once will take a few minutes to complete and you won't see anything happening. The cursor will only spin occasionally. You wil get "Query complete" when it finishes.
Code:
Sub QueryWeb()
Dim i As Integer
Dim firstRow As Integer
Dim lastRow As Integer
Dim nextRow As Integer
Dim URLstart As String
Dim URLend As String
[Code]....
This code works like charm. Is is possible to develop a code like this which open each each name from this page- [URL]....
AND
copy details like Attorney Name, email, phone and fax nos. and paste the same into excel rows.
View 9 Replies
View Related
Nov 14, 2007
How to import data from excel spreadsheets to a pdf form? I have a PDF form and was wondering if you could have the data from an excel speadsheet automatically go into my PDF form.
View 9 Replies
View Related
Nov 28, 2012
i'd like to be able to import a list of file names from a folder. sounds fairly straight forward to me, but example:
folder a has 10 files in it (let's say PDFs - numbered 1 through 10). I'd like to be able to open the spread sheet, and see the file names in column b. ideally, i'd also like subfolders to be listed, in the next column. but, let's start with just this.
View 2 Replies
View Related
Aug 12, 2014
What I've got: This code allows the user to pick one (sub)folder - the MailItem properties of the folder are then printed to the sheet.
[Code] .....
My goal: Rather than allowing the user to pick one folder, I'd like to set up a hardcoded array of five subfolders found in a shared inbox. The hierarchy is as follows:
[Code] .....
The thing is, I have huge problems with referring to any of the red subfolders above. I think I'm able to point to the shared inbox if I substitute .Pickfolder with this, but then I'm stuck! I need to go down two levels in the hierarchy.
[Code] ......
I should be able to produce an array by myself so if I at least just could get a pointer on how to refer to one single folder that would be truly awesome.
View 1 Replies
View Related
Aug 1, 2014
How can I import specific cells from say Workbook A and B to Workbook C automatically? For example. As I type in a cell in Workbook A then Workbook C reflects it straight away. Same as when I typ in Workbook B the C updates automatically. The end result will be that Workbook C automatically updates itself to show data from specific cells in Workbooks A &B.
View 1 Replies
View Related
Sep 2, 2009
Split From Run VBA Macro From Another Procedure. will it autosave and open all the archives in the file i specify and loop?
View 3 Replies
View Related
Mar 31, 2009
I'm missing something in my UserForm initialization code. If I fill the form out once and click 'OK' (run the code to put the form data into a sheet), when I go back into the form all the old info is still there. If I then click 'Cancel' (Unload Me) and reopen the form, the old data is cleared out. What am I missing to make it clear it out the first time?
View 2 Replies
View Related
Feb 6, 2008
I have a master spreadsheet that list several columns about employees(name, date, event name, etc.). Then I have an indivdual sheet for each employee. I am trying to import the column information for each employee onto their individual sheet based on their name. It is possible to import the individuals data from the master sheet to the individual sheet based on the employee name?
View 9 Replies
View Related
Feb 11, 2009
I have code in a worksheet that creates a new worksheet when clicking a button:
View 3 Replies
View Related
Oct 7, 2008
I found this script on the net which I think is very good for importing multiple workbooks/worksheets into a current workbook.
It works fine when running as a module, but when I change it become an add-in it gets a bit a confused when trying to move sheets.
I'm pretty sure its something to do with the way thisworkbook is referenced. From some of the suggestions I see it could fixed by setting-up a class module, but it sounds like i'd have to do that for every workbook i wish to import worksheets into.
View 2 Replies
View Related
Nov 11, 2009
I have a workbook that contains an 'AllData' sheet. That sheet has 6 columns titled "category, keyword, bid, advertisers, search vol, online". Each category has its own worksheet and i want to put the data for each category onto the corresponding worksheet. I am having a difficult time describing this so I have attached a brief example. I have to do this for 145 categories so I would much prefer to do it automatically rather than manually.
View 14 Replies
View Related
Aug 20, 2008
I want to be able to import an external worksheet (say sheet1) to some data structure such as a 2d array or a dictionary. I don't want to store imported data temporarily in a local worksheet - I want to import external worksheet straight to array!
I have code that can import to a given worksheet name ... but I don't know how I can modify it such that it dumps it to an array or a dictionary.
The code I have is:
Sub read_in_workbook(sheet_name As String, source_dir As String, file_name As String, Optional append_from_y As Integer)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
Dim stCon As String, stSQL As String
Dim fsoObj As Scripting.FileSystemObject
Dim fsoFolder As Scripting.Folder
Set fsoObj = New Scripting.FileSystemObject
Set fsoFolder = fsoObj.GetFolder(source_dir)
If append_from_y = 0 Then append_from_y = 1
stCon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & fsoFolder & "" & file_name & ";" & _
"Extended Properties='Excel 8.0;HDR=No'"
stSQL = "SELECT * From [Sheet1$]"
rst.Open stSQL, stCon, adOpenForwardOnly, adLockReadOnly, adCmdText
Worksheets(sheet_name).Cells(append_from_y, 1).CopyFromRecordset rst
'###Instead of it dumping to a given sheet name, can I turn this routine to a function
'###and have it return a populated array or dictionary object?
End Sub
View 9 Replies
View Related
Aug 17, 2009
I am trying to do, I have a master workbook (Formatter.xls) which contains a macro 'Import'.
When run, I want to open a series of workbooks - the filenames are listed in cells B3:B20, and the workbooks are located in the same folder as Formatter.xls
I am trying to open each of the workbooks listed in B3:B20, copy the entire contents of Sheet1 to a new sheet in Formatter.xls. The names of the new sheets are listed in cells C3:C20 in Formatter.xls.
The biggest problem is that I don't want to have to specify a path to the files to be imported. Since they are all in the same folder will this be a problem? Alternatively (and I have absolutely no idea how to acomplish this), would it be possible to have an input box to browse to the folder containing all of the files?
The reason that I can't specify the path is because it will be run on different computers and the locations / paths will change all of the time.
View 9 Replies
View Related
Mar 6, 2014
I am running excel 2010 with windows 7. I created a macro in sheet 1 and I wish to activate the macro from sheet 2 using a form button. I have entered the code below. I know how to perform this function on a more simple macro like adding names to cells. This code is a bit more complex I just dont know where to start.
Code:
Sub LoanData()
'
' LoanData Macro
[Code].....
View 3 Replies
View Related
Dec 11, 2012
Excel 2010 / Win 7.
I have some code that imports a csv file into a workbook. This works fine when i use a file named .csv. I was hoping to use a random file name (in this case .bmhs) so that we can determine which files we need to import.
The problem i have is when importing a '.bmhs' file the data comes in column A and is a comma seperated list. If i use .csv then the commas are used as the column seperators (which i need).
impFle = Application.GetOpenFilename(filefilter:="BMHS Files, *.bmhs", Title:="Select Import File")
would give me 1,2,3,4 all in column A
impFle = Application.GetOpenFilename(filefilter:="CSV Files, *.csv", Title:="Select Import File")
would give me 1 in column A, 2 in column B, 3 in column C and 4 in column D.
Is there any way that i can maintain using my own file name (.bmhs) but have excel treat it as a csv file.
View 2 Replies
View Related
Jun 5, 2013
The Workbooks.OpenText works for me, but I need to import the text file into one worksheet of an existing workbook. Is there a method to do this?
View 1 Replies
View Related
Apr 21, 2012
My workbook has a worksheet for reports of sales by each sales person (which I had hoped to send by email). CDO didn't work because I have win7 and no flavors of Outlook and ShellExecute worked but truncated any sales beyond the first dozen. So.... My NEXT plan is to include a SAVEAS pdf for that report worksheet (with 12 or more reccords) using the salesperson's name and saving them all in a reports folder. Then I will go back and manually send those reports as attachments.
View 1 Replies
View Related
Jun 7, 2009
I have an excel 2007 worksheet named "Invoice" that I would like to be able to navigate with using a command button that will open a separate File Folder or sub folder called "Report" that stores all my reports in for viewing.
My excel worksheet named "Invoice" and File Folder or sub folder named "Report" are located in the same sub folder that is named “Marketing Report”.
This report will be used on different computers and I’m sure different location / Path on their computer.
Workbooks.Open Filename:=ThisWorkbook.Path & "Report"
and
Private Sub CommandButton3_Click()
Dim fn As String
ChDir ThisWorkbook.Path
Report = Application.GetOpenFileName()
Workbooks.Open(Report)
End Sub
I also tried to record a macro but would not record going to file folder.
View 9 Replies
View Related
Jul 13, 2006
Is it possible to have a text box and a macro button that when a user enters a name of a folder (or part of the name) on say the c: drive it takes you there? Example being i have a folder called Alcan Inc on my c: drive, so i type in the text box alcan and click the macro. it then opens a windows explorer screen with the folder open.
View 2 Replies
View Related
Jun 27, 2013
I've created an Auto_Run macro that imports a CSV file into a specified worksheet. That worksheet is referenced by VlookUp in another worksheet within the workbook. Everything works perfectly EXCEPT, in the midst of running the macro, the user is prompted to (RE)choose the csv file already specified in the macro. Neither the folder nor the filename ever changes, so I'm not sure why I have to keep indicating the file every time the macro runs.
PHP Code:
 'Sub Auto_Run() ' ' Auto_Run Macro ' '    Sheets("CSVData").Select    Cells.Select   Â
Selection.Delete Shift:=xlUp    With ActiveSheet.QueryTables.Add(Connection:= _  "TEXT;
G:TestProjectsWorkOrderTest.csv", Destination:=Range("$A$1"))       Â
.Name = "WorkOrderTest"        .FieldNames = True        .RowNumbers = False       Â
[Code] .......
View 7 Replies
View Related
Aug 21, 2013
I'm looking for a macro that will import the last row of data of each .csv files from a specific folder, i.e., c: emp, into one new worksheet.
View 1 Replies
View Related
Oct 7, 2007
I currently have a userform, and on commandbutton_click, it performs
the following code that adds a column in a access table to a combobox(cbList)
Private Sub CmdName_Click()
Dim rstName As ADODB.Recordset
Dim strClientDatabase As String, strConnectionString As String
strClientDatabase = ActiveWorkbook.Path & "9001.mdb"......
After its listed on the combo box, upon commandbutton_click on another button, i wish to extract a particular record, based on the selection made on the combobox(cbList). This is where im having problems caused i have no idea how to do so. I just want it to extract the particular record row, based on cbList, and insert it into range A100:D100 in a particular worksheet. It is then updated and added to a listbox which ive already done the coding for, and with another button click it would add the details in the listbox into the appropriate location i wish to.. The only place im stuck is with extracting the data from access into a A100:D100 range in any worksheet. what ive come up with, but is incomplete is :
Private Sub CmdImport_Click()
Dim adoRS As ADODB.Recordset
Dim strSQL As String
Dim strClientDatabase As String, strConnectionString As String
strClientDatabase = ActiveWorkbook.Path & "9001mdb"
.........
View 9 Replies
View Related
