上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
whh
註冊時間: 2010-04-16 文章: 166
第 1 樓
|
發表於: 星期二 十月 19, 2010 10:48 am 文章主題: Excle匯入vfp6.0 失敗(內部一致性錯誤) |
|
|
以前遇到印象中通常都是
1. 字體有顏色 → 全改成黑色
2. sheet → 其他不要的sheet全砍掉,大不了全選在開一個新的Excle貼上
3. 儲存格格式 → 全改成文字型態
4. 全形空白 → 全部清掉
IMPORT FROM xxx.xls TYPE XLS
今天都做了還是一直給我C0000005 內部一致性錯誤......
因為筆數有點多5萬多筆,我懷疑是中文的問題。
果然被我猜中,我把姓名跟地址欄砍掉就好了.....
APPEND FROM xxx.xls TYPE XLS
也測試過∼檔案格式不正確
請問我還有漏掉什麼嗎? 或是其他解? 因為要保留那兩欄..... |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 2 樓
|
發表於: 星期二 十月 19, 2010 11:36 am 文章主題: |
|
|
又慢又穩定的方式,
建一個EXCEL物件,
逐ROW逐COLUMN轉資料. _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
jys
註冊時間: 2004-12-27 文章: 33 來自: 台灣
第 3 樓
|
發表於: 星期二 十月 19, 2010 2:08 pm 文章主題: |
|
|
Excel 的檔案格式要是 Excel 5.0 或是 Excel 4.0 匯入時比較不會有 Error |
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1645
第 4 樓
|
發表於: 星期二 十月 19, 2010 2:44 pm 文章主題: |
|
|
或者,先把該 EXCEL 轉成 CSV ,
然後
APPEND FROM XXX.CSV TYPE CSV |
|
回頂端 |
|
|
easywin3
註冊時間: 2010-10-19 文章: 13
第 5 樓
|
發表於: 星期二 十月 19, 2010 4:01 pm 文章主題: |
|
|
#DEFINE xlLastCell 11
oExcel = CREATEOBJECT("Excel.Application")
oExcel.workbooks.open(cFileName)
oExcel.Visible=.F.
FOR i = 1 TO oExcel.Workbooks(1).Sheets.Count
oExcel.Workbooks(1).Sheets(i).Select
oExcel.Workbooks(1).Sheets(i).Activate
oSheet = oExcel.activesheet
nLast = oSheet.UsedRange.Row - 1 + oSheet.UsedRange.Rows.Count
IF nLast >1
*** check header
cBarc=ALLTRIM(TRANSFORM(oExcel.ActiveSheet.cells(1,1).value,"@!"))
cDesc=ALLTRIM(TRANSFORM(oExcel.ActiveSheet.cells(1,2).value,"@!"))
IF !(cBarc='BARCODE' .AND. cDesc='DESCRIPTION')
lError=.T.
INSERT INTO TEMPLOG VALUES ('Incorrect Column Header')
ELSE
nLastCell = oExcel.ActiveCell.SpecialCells(xlLastCell).Address()
nRow =VAL(SUBSTR(nLastcell,AT("$",nLastcell,2)+1,LEN(ALLTRIM(nLastcell))-AT("$",nLastcell,2)))
FOR j=1 TO nRow
? TRANSFORM(oExcel.ActiveSheet.cells(j,1).value,"@!"), oExcel.ActiveSheet.cells(j,2).value
ENDFOR
ENDIF
ENDIF
ENDFOR
oExcel.DisplayAlerts = .F.
oExcel.Workbooks.close
oExcel.quit
RELEASE oExcel |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 6 樓
|
發表於: 星期二 十月 19, 2010 6:30 pm 文章主題: |
|
|
會不會是資料裡有 null 的關係. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
whh
註冊時間: 2010-04-16 文章: 166
第 7 樓
|
發表於: 星期三 十月 20, 2010 1:54 pm 文章主題: |
|
|
感謝 jys 及 easywin3 提供的方式皆可以使用~
轉進去的資料,果然有點怪怪的@@~ |
|
回頂端 |
|
|
fpchin
註冊時間: 2004-06-17 文章: 15 來自: Malaysia
第 8 樓
|
發表於: 星期三 十月 20, 2010 8:38 pm 文章主題: |
|
|
我用vfp6也遇到過這樣的問題,但是我轉用vfp8時問題就解決了,我想跟中文沒關係,因為我都是用英文。 |
|
回頂端 |
|
|
andywilliams
註冊時間: 2004-10-23 文章: 111
第 9 樓
|
發表於: 星期三 十月 20, 2010 9:47 pm 文章主題: |
|
|
試試..先砍掉複合索引...匯完再重建 |
|
回頂端 |
|
|
|