Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Edit excel file in form VFP
Message
From
14/06/2016 06:13:59
 
 
To
13/06/2016 20:28:20
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Miscellaneous
Thread ID:
01637287
Message ID:
01637331
Views:
162
this worked in past no nowaydays.
if you navigate with a IE browser (IE11 emulation) to any file excel,word....its always opened as a standalone window out of the browser
try this code (maybe for security considerations).this is avalbale even as administrator priveleges.
Publi oform
oform=Newobject("asup")
oform.Show
Read Events
Retu
*
Define Class asup As Form
	Top = 1
	Left = 17
	Height = 442
	Width = 725
	ShowWindow = 2
	Caption = "Form1"
	Name = "Form1"

	Add Object olecontrol1 As OleControl With ;
		oleclass="shell.explorer.2",;
		Top = 2, ;
		Left = 1, ;
		Height = 394, ;
		Width = 721, ;
		Anchor = 15, ;
		Name = "Olecontrol1"


	Add Object command1 As CommandButton With ;
		Top = 413, ;
		Left = 300, ;
		Height = 27, ;
		Width = 120, ;
		Anchor = 768, ;
		Caption = "Open excel file", ;
		Name = "Command1"

	Procedure command1.Click
	Local m.x
	m.x=Getfile('xls')
*m.x="file:///"+m.x
	Thisform.olecontrol1.Navigate(m.x)
	Endproc

	Procedure Destroy
	Clea Events
	Endproc

Enddefine
*
*-- EndDefine:
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform