Is there any way to change parts of a URL within a macro using the import from web function?
The import from web function as a macro is the following:
With ActiveSheet.QueryTables.Add(Connection:= _
I would like say the "4457" part to be dynamic. It can either change by user input, from another function..etc doesn't really matter. The problem is can this change? by string concatenation perhaps? or something else?
I'm attempting to import around 200 (and growing!) separate text files into Excel. I am using the formula below to import the text file and then using a separate macro to select the information I need, copy it into another spreadsheet, and then run the import macro again.
However, I have a problem in that my import macro gives me 'Run-time error '1004:
Application defined or user defined error''. At first this wasn't a problem as the information is pasted into the spreadsheet despite the error anyway. However, now that I am looping the macro it is obviously causing more problems as it prevents the loop. I would really appreciate it if anyone knows of a work-around or can spot an error in the coding to resolve this!
The code below shows is for the import macro only:
Sub ImportTextFile(FName As String, Sep As String)
Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
I have a simple macro importing a .csv data file to a worksheet every 30 minutes.
When the macro runs an Import Text File dialog box displays.
What do I need to do to have the macro run to completion without the dialog box interruption?
Sub RefreshHourlyData()
htime = Now + TimeValue("00:30:00")
Application .OnTime htime, "RefreshHourlyData"
Sheets("H1Updates").Select
Sheets("H1Updates").UsedRange.Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("A1:A1").Select
End Sub
I have the tedious task of building a visitor database, i have a web page with over 300 records on it, each record containing information such as company name, address, phone number email and this is only the first web page i have to visit, that's already over 1000 copy and pastes.
I'm wondering if there is a way to just capture all of the information on the web page and then populate my excel spreadsheet with information falling under the appropriate headings.
I tried the method of right clicking on the web page and said import to excel, but as you can imagine this just resulted in all of the data appearing in one column and i would still have to move all the information around so it is not of much help.
I am trying to import some data of the web and have managed to make it work but it is very slow - 90secs per loop - am I doing something wrong or is it just that slow?
Sub GetLonglat()
Dim InCellLoc As String
Dim InCellCol As String
Dim InCellRow As String
Dim NameValue As String
Dim AddressValue As String
Dim OutCellLoc As String
Dim OutCellLoc1 As String
Dim OutCellLoc2 As String
Dim OutCellCol As String
Dim OutCellCol1 As String
Dim OutCellCol2 As String
Dim OutCellRow As String
I have a tab in my workbook with 10 various items 50 pieces each, in the 2nd tab i have about 100 orders for these items. What is the best way for me to find out for each of the 10 items how much i sold?
View 6 Replies View RelatedSo I finally got a workaround for importing data from my Web Service to Excel.
It is currently working, but after I have imported the data I see from the Task Manager that Excel keeps using 25% CPU. And it also sometimes lags and mini freezes in Excel.
If I delete the row that was juts imported it immediately goes down to 0% CPU use and the lagg/freezes are gone.
import .txt file to excel.
I have below information in txt file
Microsoft (R) Windows Script Host Version 5.8Copyright (C) Microsoft Corporation. All rights reserved.
------------------------------------------
System Details
------------------------------------------
Host Name: XYZ
CPU COUNT : 2
Total RAM: 4 GB
=================
Disk 1
=================
Disk 1DeviceID: C:
Disk 1Disk Size: 112GB
=================
***** script completed - exit code: 0 *****
------------------------------------------
System Details
------------------------------------------
Host Name: XYZ1
CPU COUNT : 2
Total RAM: 4 GB
=================
Disk 1
=================
Disk 1DeviceID: C:
Disk 1Disk Size: 112GB
=================
Disk 2
=================
Disk 2DeviceID: D:
Disk 2Disk Size: 500GB
=================
***** script completed - exit code: 0 *****
required excel format.
Host Name:| CPU COUNT: |Total RAM: |Disk 1 DeviceID:| Disk 1 Disk Size: | Disk 2 DeviceID: |Disk 2 Disk Size:
XYZ| 2 | 4 GB| C | 112GB | |
XYZ1| 2 | 4 GB|C | 112GB | D | 500GB
I want VBA Code to import multiple sheets bearing same name one below the other which are in different workbooks.
Drive "D" contains "ALL DATA" folder which contains multiple workbook and all workbook contains sheet named "fair"
The task given was to import selected info from complicated text file and record into excel.
Here is the simple way of showing the txt format (consist of 2 records for example):
=================================================
Proxy Id 123
MO ABC
=================================================
GID_Group TAX8200
Account 0 (INTRA)
loadSharingCandidate 0 (FALSE)
RelationType 0 (TRUE)
Offset 0
Priority 2
=================================================
Proxy Id 123
MO ABC
=================================================
GID TAY8200
Account 0 (INTRA)
loadSharingCandidate 0 (FALSE)
RelationType 0 (TRUE)
Offset 0
Priority 2
How can i have the output as per attachement? I am not good in importing text files. Shouldi use something call ADO? or what is the most easiest way for me to start?
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.
The size of the table I'm importing will change, so i would like for the code to not matter on size. Also its, gonna be large too. The sheet will always be the same and the column headers will match for excel and access.
View 2 Replies View RelatedI need some help importing some data from one spreadsheet to another. I’m trying to basically have the data in “Harvest” imported into the “Import Here” worksheet. I’m really interested in using the data in columns A, K and M.
What this is, is a staffing program spits out the information in the “Harvest” worksheet (as a payroll report, which it does badly) but only what appears as shaded in grey or white. Anything in that worksheet shaded in green is carried out manually in order to assist importing the same data manually into the “Import Here” worksheet.
What I’d like to do is modify the “Import Here” sheet so it’ll take and process all the data from “Harvest”. Instead of doing the same thing twice I know there has to be a way to do it once but in a familiar format without it being 50 column’s wide.. although that wouldn’t matter if the print area was set correctly in "Import Here".
I have only ever created macros in existing workbooks. Is there an easy way to copy a macro from one workbook to another, without having to run a new macro in the new workbook and then paste the code into it from the old workbook?
View 7 Replies View RelatedThen it will ask the user what name it wants to find.... then user inputs the name and the macro searches the 2 newly imported worksheets in column A and B, and if it 'contains' the name then will copy it to a results worksheet (and copy row 2 as a static line from each of the work book to differentiate which sheet it came from) ....
View 14 Replies View RelatedI have this VBA macro which imports data from a text file. I do not know exactly how to make it good.
I have two sheets, named <INDATA> <Drawing_list>
On sheet <Drawing_List> I made a command button with this ....
I have managed to come up with the following macro. The problem I have is that some of the data are imported in text format, while other data are imported in general format.
I have a large data set, with more then 5,000 rows, and 2,000 columns, and I would like ALL the data imported at text. How can I modify this macro to make that happen?
Code:
Sub ImportData()
With ActiveSheet.QueryTables.Add(Connection:= _"TEXT;C:Users*****ATTRIBUTES-ModifiedExport.csv", Destination:=Range("$A$1"))
.Name = "ATTRIBUTES-ModifiedExport.csv"
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
[Code]...
I was able to import some text from a PDF to excel. My dilemma is that the text is now one long row with CODE in column A then its description in Column B...the next entry has a Code in column C with its description in column D...etc...down the line.
I need Column 1 to be all the codes with description in column B thus allowing Vlookups.
Here is sample:
A B C D E F G H I J
AC
Araucanian
AD
Adangme
AE
Afroasiatic
AF
Afrikaans
AH
Amharic
Any text column type deal?
I am having a problem importing data as a text file into excel such as
bills company,
12 street rd,
canada,
sss@sss.com,
www.ssss.com,
,
franks company,
12 road sr,
brasil,
ddd@ddd.com,
www.ddd.com,
would like it to be displayed in columns as
bills company 12 street rd canada sss@sss.com, www.ssss.com,
franks company 12 road sr brasil ddd@ddd.com www.ddd.com,
the , is stripped away when I try to open the txt file and set it up for excell
the spaces are not where I want them, I have set the delimiter options correctly
I have a large data set and preferably want an quick solution
The task that I have to make is a little bit complicated, especially for reason that I am not v VBA programmer. But however here is the task (and is not a school assignment).
First I have to clear the worksheet Invoice_Plan (file Financialplan.xls), but the whole row(s) that have data in column F (comment) have to stay on worksheet.
Than I have a worksheet Data (file invoices.xls where are all invoices from year 2009) and in column A are the data, that I have to import into in worksheet Invoice_Plan to (second file FinancialPlan.xls) in column A data under following rules (other must be skipped):
How do you import a bas file.
My code is
Sub AddCode()
Application.ThisWorkbook.VBProject.VBComponents.Import Filename:="C:UsersStrengDocumentsExcel Spreadsheetsmycode.bas"
End Sub
I am getting a Run Time Error '1004'
Method 'VBProject' of object'_ Workbook' failed
I need to get VBA code to import a web page one at a time based on a condition. When one of the urls below has "1 mins to post", I want that page imported into a worksheet.
The pages require a login and here is the source code for login - "acctnum" and password - "zipcode". The name for "1 mins to post" is name ="MTP".
I would want to keep the page loaded until "MTP" = OFF. Then whenever the next URL goes to "1 mins to Post", load that web page and keep it loaded until "OFF" and so on.
This would need to continually scan through all of the following urls:
http://tote.phonebet.com/WPSARL-C.PHP
http://tote.phonebet.com/WPSBEL-C.PHP
http://tote.phonebet.com/WPSCAL-C.PHP
http://tote.phonebet.com/WPSCAN-C.PHP
http://tote.phonebet.com/WPSCTN-C.PHP
http://tote.phonebet.com/WPSCTN-C.PHP
http://tote.phonebet.com/WPSCOL-C.PHP
http://tote.phonebet.com/WPSDPK-C.PHP
http://tote.phonebet.com/WPSELL-C.PHP
http://tote.phonebet.com/WPSEMD-C.PHP
http://tote.phonebet.com/WPSFMD-C.PHP
http://tote.phonebet.com/WPSFLK-C.PHP
http://tote.phonebet.com/WPSFTE-C.PHP
http://tote.phonebet.com/WPSHAS-C.PHP
there is i website that i want to imoport data from it to my excel sheet using vba, but the poblem is that the website will need my username and password...
i search around for possible threads and i found a very close one but couldnt have it do the submit option. also i donot want it to show me the intenet explorer window. i just wantit to do these steps:
after clicking a button:
1-logon to the site using my user and password
2-redirecting to the report link and improt what ever is in that page
3- all this with out opening IE.
Public Declare Function ShowWindow Lib "user32" (ByVal lHwnd As Long, ByVal lCmdShow As Long) As Boolean
Private Sub LoginTone()
'Dim ie As InternetExplorer
'Set ie = New InternetExplorer
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Navigate "http://s8.brono.com:80/mongol/fiona/index.php" ; this is the login address
Do While .busy And .readyState 4: DoEvents: Loop.......................
I have about 120 .txt files with Columns A Code of Users[/b], Columns B Number of Conto and Columns C-K with stings to be imported, like Numbers into one .xls file .
(see part of examples down and Attachment Red marked)
ABCDEFGHJK.........
Files have names V1.xls, v2.xls ...V120.xls. It have been requested to imported only certain rows e.g. Rows:
02178;5171;untill 02178;5175; Columns C-K, including Columns A i B
&Rows only 02178;5179; same Columns C-K, including Columns A i B
Each Cells from C-K should be importing to same Sheets .xls files. Note: String to be converting to Number After importing datas from one files should have take new datas from anothe files, same rows and columns, one under another and Calculating Sums.
Is there a way I can import, to my excel sheet, an image (or photo) from web? Web query only let me import data not image.
View 5 Replies View Relatedi have one button in my ExcelWorkbook.i have sample.xml in my "c:" i want to read that sample.xml and disply the datas in my Excel Workbook if i click the button. using VBA macro programing i want to do this.
View 9 Replies View RelatedI want to create a VBA that import data from another workbook. when i run the Macro it give me the option to choose the file and when i select the file then copy data from sheet 1 (A1:D1) and paste to my active worksheet. I do not want the other file open because it is too big and takes fro ever to open it.
View 4 Replies View RelatedI am trying to import data from an external source file (Excel) into an Excel sheet that will get uploaded into a db accounting system.
The source data varies month to month in the number of rows and need I to import 7 columns.
The upload file will be saved as a text file for the upload.
I tried to use Import External Data, but since the rows vary in size (anywhere from 1 - 2000 rows) I had to create a named range for the entire column. Upon saving this caused all rows beyond the last row of data to have quotes in them which will kill the upload.
Is there a way around this with the Import External Data, or is there a better way through some combination of INDEX, MATCH, INDIRECT or the like?
I am trying to import a file from a notepad to excel. I am trying to copy and paste in to excel. When I paste, all the info is in the same cell, although it looks that there is tabs between columns. Is there a way for me import those numbers into a spread sheet in different columns?......
View 3 Replies View RelatedI am trying to import data from web to excel. I posted the link below to the website I am attempting to import from. The only part I need is the statistics. However, I cannot get it come thru by getting external data from web.
The goal is to great an auto updating spreadsheet with multiple sheets so copy and paste is not feasible.
[URL]