Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Microsoft Office Otomasyonu » VFP den excel dosyası açmak
Sevgili Arkadaşlar,
Sizler için belki çok basit bir işlem ama ben 3 gündür uğraştığım halde başaramadım.
istediğim şu:
getfile(xls,doc)
ile bir excel veya word dosyasını seçmek, degiştirmek ve kaydetmek istiyorum.
Biliyorum bir-iki satırlık bir kod ile bu iş çözülecek ama ben beceremedim.
Lütfen yardım edin.
Sevgilerimle.
Erdal
http://www.fox4um.com/topic/1347/rename-komutu/ değiştirmek için - dileklerine fikir verir.
dosyaad=GETFILE('xls,doc', "excel veya word aç","OK düğmesi", 1, "pencere başlığı")
Sevgili Arkadaşlar,
Metin dosyalarını aşağıdaki kod ile açmayı başarabildim:
lcGetFile = Getfile('doc,txt,rtf')
Local oword As 'word.application'
oword = Newobject('word.application')
With oword
.Documents.Open(m.lcGetFile)
.Visible = .T.
Endwith
Ama yukarıdaki kodun benzeri ile excel dosyalarını açamıyorum.
Excel dosyalarını açmak için kodu şöyle değiştirdim:
lcGetFile = Getfile('xls')
Local oword As 'excel.application'
oword = Newobject('excel.application')
With oword
.Documents.Open(m.lcGetFile)
.Visible = .T.
Endwith
Burada Documents kelimesinin yerine ne yazmam gerekiyor? Aklıma gelen bütün olasılıkları denedim; başaramadım. Anlayacağınız sadece iş doğru kelimeyi bulmaya kalıyor.
İlgilenecek ve yol gösterecek arkadaşlara şimdiden çok teşekkür ederim.
Sevgi ve Teşekkürlerimle.
Erdal
http://www.fox4um.com/topic/1327/tablod … kopyalama/
ben dosyaadında işlem yapacaksın anladım.
her şartta aşağıdaki gibi açarsın:
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd, STRING lpVerb, STRING lpFile, STRING lpParameters, STRING lpDirectory, LONG nShowCmd
m.dosyaad=GETFILE('xls,doc', "excel veya word aç","OK düğmesi", 1, "pencere başlığı")
lnresult =Shellexecute(0,"Open",m.dosyaad,"","",0) && dosyayı aç
* aşağıdaki bölüm bilgisayarda ilgilidosya yoksa açacak program seçmek için
IF lnresult < 33 && hata oldu
IF lnresult = 31 && ilişikli dosya yok
DECLARE INTEGER GetSystemDirectory IN Win32API STRING @lpBuffer, INTEGER nSize
lnsize = 260
lcbuffer = SPACE(lnsize)
lnsize = GetSystemDirectory(@lcbuffer, lnsize)
IF lnsize > 0
lcbuffer = LEFT(lcbuffer, lnsize)
lcrundll = "RUNDLL32.EXE"
lcparms = "shell32.dll,OpenAs_RunDLL "
lnresult = ShellExecute(lnhWnd, @lcop, lcrundll,;
lcparms + m.dosyaad, lcbuffer, lnWindowState)
ENDI
ENDI
ENDI
Sevgili Konuka,
Gönderdiğin kod tam istediğim gibi çalışıyor.
Yardımın için çok teşekkür edrim. Sağol.
Sevgilerimle.
Erdal
fox4um » Microsoft Office Otomasyonu » VFP den excel dosyası açmak