Konu: Excelde Clipboard a kopyalanan bilgi
Herkese Merhaba,
excelde CTRL + C ile clipboard a aldigim bilgiyi nasil manage edebilirim. Bu bilgileri Cursor e atmanin bi yolu varmi ?
Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
fox4um » Microsoft Office Otomasyonu » Excelde Clipboard a kopyalanan bilgi
Herkese Merhaba,
excelde CTRL + C ile clipboard a aldigim bilgiyi nasil manage edebilirim. Bu bilgileri Cursor e atmanin bi yolu varmi ?
Strtofile(_cliptext,'dosya_adi.txt')
ile bir dosyaya azdırabilirsin.
Eger dogrudan o workbooktan alman uygun degilse, (program yoluyla) yeni bir excel workbook ac, paste et. OleDb veya odbc ile datayi al. Kafadan yazinca kabaca:
oExcel = createobject("Excel.application")
oExcel.Worbooks.add
oExcel.Activeworkbook.ActiveSheet.Range('A1').Pastespecial()
oExcel.SaveAs('c:\temp\tempexcel.xls')
oExcel.ActiveWorkbook.saved = .t.
oExcel.quit
lcConn = "Driver={Microsoft Excel Driver (*.xls)};"+;
"DriverId=790;Dbq=c:\temp\tempexcel.xls"+;
";DefaultDir=c:\temp\";"
lnHandle = SQLStringConnect(m.lcConn)
SQLTables(m.lnHandle,"", "SheetNames")
Scan
lcTableName = Trim(SheetNames.Table_Name)
lcOutput = Chrtran(m.lcTableName,' $','_')
SQLExec(m.lnHandle,'select * from ['+m.lcTableName+']',m.lcOutput )
endscan
SQLDisconnect(m.lnHandle)
erase ('c:\temp\tempexcel.xls')
Çetin Hocam, excel'den copy ile clipboard'a alınmış mesela ad ve soyad alanlarını direkt bir cursor'a aktarmanın bir yolu var mı acaba ?
** EXCELDEN YAPIŞTIR..
kabaca şöyle bişey...
XLEN=ALINES(XAR,_CLIPTEXT,CHR(13))
FOR XN =1 TO XLEN
XLEN1=ALINES(XAR1,XAR(XN),CHR(9))
IF XLEN1=2
SELECT XTABLE
APPEND BLANK
REPLACE XTABLE.ad WITH XAR1(1)
REPLACE XTABLE.soyad WITH XAR1(2)
ENDIF
NEXT
Çok teşekkürler.
Excel'den copy ile ad,soyad alani almak mi:) Neden oyle birsey yapayim ki dogrudan Excel driveri kullanarak almak varken.
Hocam, farklı amaçlarla, farklı kolonlarda/satırlarda tutulan bilgilerden istediklerimi seçip foxa nasıl aktarabilirim diye merak etmiştim, ad-soyad olayını örnek olarak verdim.
Iyi iste ben de diyorumki clipboardla filan ugrasma, bir kerede datayi al SQL ile isle, ya da daha alirken SQL ile isle.
İlk fırsatta deneyeceğim hocam.
fox4um » Microsoft Office Otomasyonu » Excelde Clipboard a kopyalanan bilgi