返回列表下一主題上一主題發帖

求救：其檔案格式與副檔名所指定的格式不同

hero_lin

中學生 Rank: 2

帖子: 44
主題: 25
精華: 0
積分: 74
點名: 0
作業系統: win7
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-6-24
最後登錄: 2023-9-21

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-8-31 17:45 | 只看該作者

求救：其檔案格式與副檔名所指定的格式不同

公司SERVER內資料轉移至新的硬碟，結果很多EXCEL2007檔案都打不開了。
檔案大小約400K左右
出現訊息【其檔案格式與副檔名所指定的格式不同】。
請教如何解決?或是外面有幫別人解決修復的公司。
感謝

樓主熱帖

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

4^#

發表於 2011-9-14 01:38 | 只看該作者

回復 3# jimmyhk

回覆一下近來的情況
我現在於 VBA 內加了以下的程序,
就解決了有關問題

'第一組, 用作檢查現使用 Excel 版本
Sub CheckExcelVersion()
verarr = Array("8.0", "9.0", "10.0", "11.0", "12.0", "14.0")
vername = Array("97", "2000", "2002", "2003", "2007", "2010")
For i = 1 To 6
If verarr(i - 1) = Application.Version Then
Sheets("Sheet1").Range("A501") = vername(i - 1)
Exit For
End If
Next i
End Sub
'第二組...
...
...
If e_ver = "2007" Then 'e_ver
ActiveWorkbook.SaveAs fname3, 56 '如果是 Excel 2007, 則 Save 為 xlsx 格式
Else
ActiveWorkbook.SaveAs fname3 '如果是 Excel2003/XP, 則 Save 為 xls 格式
End If

複製代碼

TOP

jimmyhk

中學生 Rank: 2

帖子: 107
主題: 8
精華: 0
積分: 127
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-29
最後登錄: 2023-11-17

3^#

發表於 2011-9-4 02:34 | 只看該作者

回復 1# hero_lin

我近日在寫 VBA (我是初心者) 時亦有看到這個東西.

源起是我以 Excel 2003 寫了一個小程式,
內裡會把其中一張 Sheets 另存到一個新建的 excel 檔去.
以以下 VBA 碼
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=fname3
ActiveWorkbook.Close True

如以 Excel 2003 執行匯出的檔案是 abc.xls
是完全沒有問題的.
但如這句由 excel 2007 執行,
匯出的檔案檔名仍是 abc.xls
但使用 Excel 2007 開啟時就會有
"其檔案格式與副檔名不同.開啟檔案之前,請確認檔案未損毀, 且來自信任的來源.
你現在要開啟檔案嗎?"

於檢查該匯出的 Excel 檔案 (即 abc.xls),
發現於使用 Excel 2007 執行時它會自己變成 xlsx 格式匯出....
這個問題我仍未找到方法解決.

不過不知這個問題會否和你一樣~~~

TOP

gong