Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Automating VFP from Excel
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00898688
Message ID:
00898746
Vues:
15
Hi, I have been able to hide most of the activity when running a FoxPro exe but the main foxPro
window still flashes briefly when the exe loads. Is there a way to remove this also?
Thanks
Steve


This is the foxPro exe program
**********************************
_Screen.Visible = .F.
o = GETOBJECT(,'excel.application') && helps to reduce screen activity
o.Visible= .T.

WITH o.Application &&.Run("Hw2004ETF.xls!GotoFidelity")
.screenUpdating = .f. && also helps
.Sheets("ImportArea").Select
.Goto("FedImpRange")
.Selection.Copy
.Sheets("Fidelity").Select
.Goto("LastDay")
.Range("HV7").Select
.ActiveSheet.Paste
Recalc() && .Run("Hw2004ETF.xls!ReCalcSheet")
.Goto("LastDay")
.screenUpdating = .t. && also helps
ENDWITH

PROCEDURE ReCalc
.Run("Hw2004ETF.xls!ReCalcSheet")
RETURN .t.

This is the Excel macro
***********************
Sub aa()
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Const SW_SHOWNOACTIVATE = 4
Const SW_SHOW = 5
Const SW_MINIMIZE = 6
Const SW_SHOWMINNOACTIVE = 7
Const SW_SHOWNA = 8
Const SW_RESTORE = 9

Dim ProcessID As Long
Dim file2run As String

Application.ScreenUpdating = False
file2run = ("c:\pager\oQot.exe -t") '' should the -t remove FoxPro's initial screen from showing?

ProcessID = Shell(file2run, CLng(SW_SHOWNORMAL))
Application.ScreenUpdating = False

End Sub
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform