Solved: Sendkeys using wait.

[paulked]

Hi all

I'm trying to use the Sendkeys appplication. In the help it says you can tell it to wait until the process has finished before handing control back to the macro. I've tried various sytax's but can't get the damned thing accepted (Compile Error. Expected: =)

Any ideas?

Best regards

Paul Ked

[lucas]

Hi Paul,
Show us the code you are having trouble with please.

[paulked]

Hi Paul,
Show us the code you are having trouble with please.

[vba]Sub SaveFile()
Dim SavePath As String
Dim LYear As Integer
Dim LWeek As String
Dim fso
Dim fol As String
Application.SendKeys ("%me") '("%me",WAIT) Want to wait Here!
Application.SendKeys ("{ENTER}") '("%me",-1) And Here!
Sheets("Main").Select
Sheets("Main").Copy
Sheets("Main").Select
Sheets("Main").Name = "Sheet1"
LYear = Year(Date)
LWeek = DatePart("ww", Now())
fol = "C:\Ovens\Records\" & LYear
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(fol) Then
fso.CreateFolder (fol)
End If
fol = fol & "\" & "Week " & LWeek & "\"
If Not fso.FolderExists(fol) Then
fso.CreateFolder (fol)
End If
fol = fol & Range("F1").Text & "\"
If Not fso.FolderExists(fol) Then
fso.CreateFolder (fol)
End If
ActiveWorkbook.SaveAs Filename:=(fol & Range("A1").Value & ".XLS")
ActiveWorkbook.Close
'Call ClearCells
Range("A1").Select
Application.SendKeys ("%mb") '("%mb",[wait]) Wait Here!
Application.SendKeys ("{ENTER}") '("%me",[1]) And Here!
End Sub
[/vba]

Just can't get the syntax

Many thanks

Paul Ked

[Norie]

Paul

What are you actually trying to use SendKeys to do?

[rory]

Remove the parentheses from the code. Use:
[VBA]Application.Sendkeys "%fx", True[/VBA]
rather than:
[VBA]Application.Sendkeys("%fx", True)[/VBA]

[rory]

That was just a sample before I saw your code - replace the key string with your own!

[paulked]

Many thanks Rory, did the trick.

Paul

What are you actually trying to use SendKeys to do?

I have a package which communicates with vendors hardware and, unless I stop communications to the hardware, the system crashes when I try to save a file. This package is password protected and the easiest way to get round it is by using Sendkeys to stop communication and the restart it when file saved.

Not the best solution, but an acceptable one

Thanks again.

Paul Ked

[lucas]

Rory, I deleted the odd extra posts that the board posted for you....I don't know what causes that.......

[rory]

Steve,
Thanks - I thought it was my DT's kicking in...