I used to run a macro on Win XP - where in I open a Web browser and then Send keystroke to Open new ones - Which was working fine. But now when i use the same macro in Vista it gives me a "Error - 70 : Permission Denied" @ sendkeys.
Option Explicit
Public myIE As Object
Sub OpenIE()
Set myIE = CreateObject("InternetExplorer.Application")
myIE.Navigate "www.ozgrid.com"
myIE.Visible = True
Application.Wait (Now + TimeSerial(0, 0, 5))
SendKeys "^N" ' to Open New Window
End Sub
What i require now is I need to Open IE - 7 - Which i am able to do and then open several Tabs with different URL's
I have a workbook that I transfer back and forth from my desktop to my laptop, that uses Sendkeys to add code to the active pane in VBA. It doesn't work on my laptop, but works fine on my desktop.
Both computers have Vista. Is there a switch somewhere to make Sendkeys work?
I have an older laptop with XP and 2007 Office / Excel this works, with the new laptop doesn't work?
basically - I open a new spreadsheet - blank - just basic
I used to be able to click the data tab, then click From Access, then enter my URL to an access database on my website and BAM my data would populate in cell A1
with VISTA - I get the same error over and over again, tried a different XP machine, no problem? What gives?
error box states: Microsoft Office Excel cannot access the file [url] there are several possible reasons.
the file name or path does not exist the file is being used workbook has the same name
I'm starting to really hate VISTA after about 3hrs with this new laptop!
I have a fairly simple macro that takes a few seconds on my XP-computer with Excel 2003 but takes several minutes on my Vista-computer with Excel 2007.
The XP-PC has 2GB memory, the Vista-PC only 1GB, but it's hard to believe it's only that. Is Excel 2007 so much slower than 2003?
The macro makes quite extensive use of the .rows(Rownr).Delete method. Is the fact that 2007 has 1 million rows against the 65536 of 2003 the culprit? It has to shift much more data up when deleting a row, no?
this is the code i'm using but sometimes it runs sometimes it runs incorrectly; i've been told that sendkeys is not a good choice and i should use API but i'm just studying VB6 and i do not know what is API; so i need a code to copy and paste in a module this is the code with sendkeys that i need insterad with API
Once the intended chain of actions is performed, normally EXCEL would go on to display the contextual menu, (which is its standard right-click action when no macros are involved). Since I don’t want my macro operation to end with that menu covering part of my screen, I have the macro ‘type’ in ESCAPE, through one of these lines:
I am using SendKeys in a VBA script to activiate 2 Add-In functions when a worksheet is activated. The code I am using is:
Private Sub Worksheet_Activate() Application.SendKeys "%GR" Application.SendKeys "%GH" End Sub
Whilst this code works fine as is I would like to provide the user with some progress information either with a message box or via the status bar. The first command refreshes data from an external source and the second hides unwanted rows and columns. I do not have access to modify these add-in functions.
I have tried:
Private Sub Worksheet_Activate() Application.StatusBar = "Refreshing data in progress ..." Application.SendKeys "%GR" Application.StatusBar = "Hiding rows and columns in progress ..." Application.SendKeys "%GH" Application.StatusBar = False End Sub
However, the system does not wait for the sendkeys commands to complete before changing the status bar message so it flashes them on and can hardly be seen
I would also like to turn screen refresh off to speed up the process time however the Application. ScreenUpdating function appears to be ignored.
I would like to emulate hitting the Alt+Ctrl+"Print Screen" button on the keyboard with the following code. I know there are some restrictions around using the PrintScreen with the SendKeys, but I'm hoping I can still figure out how to make this work.
Following is the first part of a larger macro I've set up. If I can just get this to work, that would be perfect.
Sub PrintTheScreen() Application.SendKeys "^%" & "PRTSC" End Sub
I have created some code that directs me to a web page, and i use send keys to navigate my way to the input field. In this input field I am trying to put a cell value in a range use send keys to download the file, and the repeat the process for the next cell.
Here is my code so far, it does everything right up until pasting the copied cell into the input section of the web page - the issue is it is pasting nothing
Yesterday I needed to install some new software that required at the end reinstalling of Microsoft Redistributable 2005. Not sure if for that reason but now the last line (the SendKeys) is not sending the email automatically anymore. What happens is: -the email message windows pops up but is not being sent unless i do it manually (if i get rid of the two seconds pause ahead of that) -have a VB error message that takes me before the SendKeys line (if I keep the two secs wait ahead of that)
It looks to me that either: -the pc is not active anymore on the email message therefore the SendKeys doesnt work -somehow the instruction finds the "door" shut by something else -worse of all, the software has messed up with those send keys commands (tried to reinstall it but to no avail)
I need to use sendkeys to insert code into codepane in VBE.
I use sendkeys "MyFunction()", but the "()" doesn't show up just "MyFunction" I use sendkeys "MyFunction" & chr(40) & chr(41), still only get "MyFunction"
I was looking at Colo's website for the Application.SendKeys method, http://puremis.net/excel/code/039.shtml ,so that I can speed up a page/print setup macro that I have.
I was partially successful in setting this up, but I did notice that there was no argument number in that method for setting up the "Fit to x Pages Wide" and "y Pages tall".... I really need that functionality....
I saw something here that is supposed to get the zoomfactor : http://groups.google.com/group/micro...8d0?scoring=d& but I can't seem to incorporate it into my code so that it works.
I want to change Arg13:=79 to Arg13:= Zoomfactor, but I just ain't cutting it as each page is a different size and I am running this from Personal.xls ....
However, I have not been able to find a solution. I created 2 macros that work using the alt+F8 and enter option as well as the run from the macros menu method. Whenever I try to use the keyboard short cut eg. Ctrl+e it will either not do anything or pause and then select every cell. The codes are below:
Sub Macro5() ' ' Macro5 Macro '
[Code]....
I have tried multiple letter options and have also tried many macros in a new workbook and I cannot get it to run with the keyboard shortcut.
We have a business system which has some very disjointed reporting. To fix this I have multiple extracts that are then combined into a single report. I then add Year & Period from a lookup of a date in a particular field. Unfortunately most values are returned as #N/A but if I manually go into the sheet and select an offending cell and click then magically the formula then corrects itself.
So I thought I would be clever and use Sendkeys {F2} as part of my code. Unfortunately this is a bit hit & miss as it works on some but not on others. Also the Sendkeys piece repeats itself leaving my frontsheet a 1000 rows from the start. This is easily fixed by selecting cell A1as the last step.
My question is there methods in VBA by not using sendkeys that will achieve the same result and is consistent. I am using Excel 2010.
Code: Sub Add_Calendar() Dim cell As Object, c As Range
'setup for calendar data population ' Range("H1") = "Created Date" Range("N1") = "Year" Range("O1") = "Period" 'copy the format
It takes a specific sheet & range, uses publish object to create a HTML version of this sheet then launches the IE browser to display this to the user.
Issue: Under Windows XP, Excel 2003 & Excel 2007 this works OK. Under Vista & Excel 2007, the HTML preview file is not getting written - I get an error when IE browser tries to display this file. Error: Can not find "Print Preview.htm"
Anyone run into this on Vista? Is this a permissions issue with writing the html file? Not sure why this exact same code works under XP and not Vista.
I used to think my excel skills were OK until I started working with userforms but I now realise that I have a long way to go.
I need to enter data from various WEB sites onto a worksheet and at the moment I'm toggling between each web site and the worksheet. What I would like to do is set up a userform which I can enter data from each page into and when finished hit a commandbutton to transfer it to the worksheet.
I'm mostly OK with creating the userform but not sure what code, and where I need to add it, to keep the userform on top of all other windows.
Also not sure if it's possible, I have another worksheet that has a series of hyperlinks that when selected open a web page, I can create a combobox that shows the the display names of the hyperlinks but not sure what code I need to add a commandbutton or some other control that will open the hyperlink.
way of getting two sheets to scroll together, so when I scroll one window the other one moves too? Some text editors have that future (IIRC UltraEdit does)
I can't find a scroll event in the windows code to trigger a macro to run itself.
I can get around it by using a selection change event which would restrict me to moving around with the cursor keys/Pageup/down, but I've got 15,000 to review regularly in a short space of time and it would be quicker by mouse
I have put together the following code and it works fine on my PC. However, we are a mainly Mac based company and I nead it to work with a Mac. I am using the Actual ODBC Driver for Mac to give me a ODBC connection. I can do the query in excel but setting it up as a macro just will not work.
Sub Sales_Query() Columns("C:D").Select Selection.Delete Shift:=xlToLeft Range("B2").Select Dim area As Variant area = Range("B2") With ActiveSheet.QueryTables.Add(Connection:= Array("ODBC;DSN=my_database;Description=My................................
i'm having trouble with the following code. The first if statement works fine, it's on the second pass that get problems, i get a 'ERROR 13 type mismatch' on the Windows(NewFN).activate line and i cannot figure out why.
Private Sub cmdsave_Click() Dim NewFN As String
Range("B5:G21").Select Selection.Copy
If Module3.firstTime = "y" Then NewFN = worksheets "Recalculate").Range "G5").Value ".xls" Workbooks.Add
Every time I open a new file in excel it opens up the file and the other file I have open disappears. Can I open a file so that there will be two separate windows?
