|
This is my new code, is correct?. Because after the cursor go in:
.refresh
the macro go into ie.quit and and the code!?
Sub RICERCA_ABI_CAB()
Dim ie As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet
Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set ie = CreateObject("InternetExplorer.Application")
On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
With ie
.Visible = True
For lngRow = 2 To lngMaxRow
.Refresh
.navigate "http://www.bancaroma.it/abicab/index.asp", 2
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
If wksList.Cells(lngRow, 3).Value = "" Then
With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit
Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count
End With
Do While Not CBool(InStrB(1, .document.URL, "?Search "))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(1).Rows(4).Cells(1).innerText), "#00000")
On Error GoTo errHandler
End If
Next lngRow
End With
errHandler:
ie.Quit
Set ie = Nothing
Exit Sub
ActiveWorkbook.Save
End Sub
|
|
|
|
|
hummmm.....
I test it with PF8 and when the cursor go on .refresh the macro go in ie. quite and exit!?!?
|
|
|
|
|
Try reading what I posted again and compare it to what your looking at, because you didn't get it right.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
no work, same prob.... after .refresh the macro go in ie.quite and exit????
I don't think this will work, because you submit data within the loop, and this takes you to another web page.
this is my last code:
Sub RICERCA_ABI_CAB()
'HANS
Dim IE As Object
Dim lngRow As Long
Dim lngMaxRow As Long
Dim wksList As Worksheet
Set wksList = ActiveWorkbook.Worksheets("ABICAB")
Set IE = CreateObject("InternetExplorer.Application")
On Error GoTo errHandler
lngMaxRow = Range("A65536").End(xlUp).Row
'With IE
IE.Visible = True
'For lngRow = 2 To lngMaxRow
IE.Navigate "http://www.bancaroma.it/abicab/index.asp", 2
With IE
.Visible = True
For lngRow = 2 To lngMaxRow
.REFRESH
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
'.Navigate2 "http://www.bancaroma.it/abicab/index.asp"
'Do While .busy
' DoEvents
'Loop
'Do While .ReadyState <> 4
' DoEvents
'Loop
If wksList.Cells(lngRow, 3).Value = "" Then
With .document.Forms(0)
'Abi
.ABI.Value = Range("A" & lngRow)
'Cab
.CAB.Value = Range("B" & lngRow)
.submit
Application.StatusBar = "Processing row " & lngRow & " of " & wksList.Range("A1").CurrentRegion.Rows.Count
End With
Do While Not CBool(InStrB(1, .document.URL, "?search"))
DoEvents
Loop
Do While .busy
DoEvents
Loop
Do While .ReadyState <> 4
DoEvents
Loop
On Error Resume Next
'CONSIDERARE PRIMA CELLA COME POSISZIONE "ZERO"
Range("C" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(0).Cells(3).innerText)
Range("D" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(1).Cells(3).innerText)
Range("E" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(2).Cells(1).innerText)
Range("F" & lngRow) = UCase(.document.all.tags("table").Item(1).Rows(3).Cells(1).innerText)
Range("G" & lngRow) = Format(UCase(.document.all.tags("table").Item(1).Rows(4).Cells(1).innerText), "#00000")
If Range("C" & lngRow) > 0 Then
Range("H" & lngRow) = "OK"
End If
On Error GoTo errHandler
End If
Next lngRow
End With
errHandler:
IE.Quit
Set IE = Nothing
Exit Sub
ActiveWorkbook.Save
End Sub
|
|
|
|
|
OK. I see what you're doing with this. I thought you were building a web page and reloading it after adding some data to it. You're not. You're querying this page for data from a worksheet.
Back out the changes I said to make. They are not going to help you. You're not going to get around this problem. No matter what you do, your Navigate method is going to log every page to the History.
The only solution I can think of is to delete that site from the History when your done. This is impossible in VBScript. I don't know about doing it in VBA in Excel...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
After setting from Portait to Landscape,the value of PageSetting.PaperSize do not changes as you wish.
The width is still less than height.
Is this a bug of vs.net 2005 beta 2 ?
|
|
|
|
|
No, it's not. The PaperSize doesn't change when you change the orientation. But the <a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemDrawingPrintingPageSettingsPropertiesTopic.asp?frame=true" rel="nofollow">PageSettings.Bounds</a>[<a href="http://msdn.microsoft.com/library/en-us/cpref/html/frlrfSystemDrawingPrintingPageSettingsPropertiesTopic.asp?frame=true" target="_blank" rel="nofollow" title="New Window">^</a>] property does take the orientation into account.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have no idea on how can I convert Paradox Tables to MS Access Tables. The situation is this: the time-tracking device (connected to a PC) will record every attendance in paradox tables. The PC of the device is connected to the PC of the HR Personnel, so everytime they need the records for calculation, with the click of a button in the HR information system, attendance records are all retrieve from paradox tables of the said device and shown visually on the screen of HR's PC. I'm not so sure if there happened a conversion from paradox of the device to MS Access of System used by HR. How could that be possible?
|
|
|
|
|
There are tools out there to do this. Just Google[^] for them. Also, Access will Import Paradox tables. Just click on File/Get External Data, so long as you can map a drive to the machine hosting the Paradox database.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
HI FRIENDS
I ZAIN
designing & programing a application using vb6 but i have problem for enabling >> RTL (Right-to-Left)<< languages like Arabic Punjabi Urdu
i need help for enabling RTL (Right-to-Left)
PLEASE HELP ME.
ZAIN
|
|
|
|
|
Is it possible to assign values entered in one form to be used in another form. This would be instead using global variables to populate the new form.
Just wondering if this could be possible.
|
|
|
|
|
Give this link a try:
[^]
I'm not sure if this is what you meant, but this article is a good read 
|
|
|
|
|
Another article can be found here[^] on MSDN.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How can i put my program entry in sys menu, ie the menu which appears when we right click on any component whether it is being folder or file
|
|
|
|
|
Google for "VB6 Shell Extension[^]".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
My friend has created a program in vb6 with the help of api that prompts for passwords if i delete his password protected folder, how can achieve similar one.Is he hooked the api function that deletes the folder or is it something else
|
|
|
|
|
Something else. There is no hook for this, other than file system extensions. This is NOT a task suited for VB6.
You're not really dealing with a folder under this kind of protection. Rather, you're actually looking at an extension of the file system where the files/folders are stored in a hidden file in the directory structure. The extension you write, kind of like .ZIP files in XP are handled, is the interface between NTFS and the file holding the secured files/folders.
But, like I said, VB6 is NOT a good candidate to do this.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How can i disallow the unauthorized user to uninstall my setup, ie, if he doesn't have the proper passwords which the authorized user has set during installarion to uninstall my setup.
|
|
|
|
|
This should normally be done using Group Policy on the machine/domain.
You would have to implement custom actions in the .MSI setup to do something like this. I would recommend using a professional .MSI builder, such as Wise for Windows Installer, to do this instead of using the rather generic Setup project builder in Visual Studio.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How can we open a folder? I need to open a window to show the contents of a folder..only could find how to open Files and Create Directories..
|
|
|
|
|
Use the ShellExecute API function
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
It opens all files and folders
|
|
|
|
|
Do you want to open the folder in an Explorer window, just like typing in C:\ in the Start/Run box? If so, all you need to do is the same thing, either using a Process object (VB.NET), or the other suggestion (VB6).
Process.Start()[^] method
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi friends ,
i having a problem in creating a object to ping ip addresses. my application works fine on my comuter but gives an error on other computer:
Library not registered:
i m creating the following object through my application:
===========================================================
Sub Scan(ByVal IP)
Dim status As String
Dim strComputer As String = IP
Dim objShell = CreateObject("WScript.Shell")
'Dim objScriptExec = objShell.Exec("ping " & strComputer & "t")
Dim objScriptExec = objShell.Exec("ping -n 3 -w 1000 " & strComputer)
Dim strPingResults = LCase(objScriptExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from") Then
status = "OK"
MsgBox(strPingResults, MsgBoxStyle.Information)
Else
status = "Not Working"
MsgBox(strPingResults, MsgBoxStyle.Critical)
End If
End Sub
============================================================
can any one help me out to find a way out fo this!
abhinav
|
|
|
|
|
Does the other machine have Windows Scripting Host[^] installed? Preferrably 5.1 or 5.6...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
thanx ,
windows scripting host was not istalled. i installed it and its working properly.
bi
abhinav
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
