返回列表 上一主題 發帖

[分享] (已解決)請問大大,如果EXCEL 2003轉換至2010,原程式要如何修正?

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-15 18:55 | 只看該作者

[分享] (已解決)請問大大,如果EXCEL 2003轉換至2010,原程式要如何修正?

本帖最後由 cmo140497 於 2012-2-20 11:59 編輯

Dear 大大 :
目前小弟遇到一個問題,公司電腦轉換至office 2010後,原excel 2003 巨集,卻無法執行,尤其在插入圖片部份,該如何解決?另外還有哪些的差異,須注意的,實在感謝!

感謝大大的指導,但在picture.insert 的語法,在2010年版似乎引用上是否有所不同,感謝!

[attach]9607[/attach]

2010 get SINF_20120215.rar (15.41 KB)
收藏 分享

wang

帖子
12 
主題
0 
精華
0 
積分
108 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2010-5-23 
最後登錄
2020-11-16 
2#
發表於 2012-2-15 23:48 | 只看該作者
如果活頁簿包含您要保留的巨集，請按一下 [.xlsm]。
如果活頁簿包含您要保留的巨集，而您要將活頁簿儲存為巨集，請按一下 [.xltm]。
詳細請參考
http://office.microsoft.com/zh-tw/excel-help/HA010342994.aspx#BM4
將活頁簿轉換為 Excel 2010 檔案格式

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
3#
發表於 2012-2-16 08:23 | 只看該作者
謝謝大大的指導,但在picture.insert的部份還是有問題,謝謝!

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
270  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-11-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-2-16 14:47 | 只看該作者
回復 1# cmo140497


    [url]http://chijanzen.net/wp/?p=495[/url]
學海無涯_不恥下問

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
5#
發表於 2012-2-17 09:56 | 只看該作者
感謝版主的指導,但小弟不管怎麼試,這個程式似乎不為所動,謝謝!

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
6#
發表於 2012-2-17 11:05 | 只看該作者
我有下載檔案在2003中執行~ 無任何反應~

樓主確定file一開始就是可以被執行的嘛???
學習才能提升自己

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
270  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-11-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
7#
發表於 2012-2-17 14:24 | 只看該作者
回復 5# cmo140497
你的目的為何我不知道，但要新增圖片只要改成以下流程即可
  1. Sub STARTGETSINF()
  2. Dim Fs As Object, E, i As Integer, P, ii As Integer
  3.     Dim xlPath As String
  4.     Dim myWb As Workbook
  5.     Dim myFileName As String
  6. Cells.Clear
  7. ActiveWindow.Zoom = 75
  8. Rows("2:9999").EntireRow.AutoFit
  9. Columns("B:Y").ColumnWidth = 2

  11. With Application.FileDialog(msoFileDialogFolderPicker)
  12.         .AllowMultiSelect = False
  13.         .InitialFileName = "D:\Export\SINF\"
  14.         .Show
  15.         If .SelectedItems.Count = 0 Then Exit Sub
  16.         xlPath = .SelectedItems(1)
  17. End With

  19. With CreateObject("Scripting.FileSystemObject").GetFolder(xlPath)
  20.         i = 1
  21.         For Each E In .SubFolders
  22.             If i > ActiveWorkbook.Sheets.Count Then
  23.                 Sheets.Add(, Sheets(Sheets.Count)).Name = E.Name
  24.             Else
  25.                 Sheets(i).Name = E.Name
  26.             End If
  27.             ii = 2
  28.            For Each P In E.Files
  29.               If InStr(UCase(P.Name), ".JPG") Then
  30.                 ActiveWindow.Zoom = 75
  31.                                                 
  32.                 With Sheets(i).Cells(ii, 2).Select                         '設定圖片欄位大小
  33.                      With Selection
  34.                       .RowHeight = 60
  35.                       .ColumnWidth = 9.5
  36.                       .WrapText = True
  37.                      End With
  38.                      
  39.                       t = Cells(ii, 2).Top + Cells(ii, 2).Height * 0.1  '圖片上位置
  40.                       l = Cells(ii, 2).Left + Cells(ii, 2).Width * 0.1 '圖片左位置
  41.                       w = 50                                          '圖片縮小50%寬度
  42.                       h = 50                                         '圖片縮小50%高度

  44.                   With Sheets(i).Shapes.AddPicture(P, True, True, l, t, w, h) 'B欄插入圖片
  45.                       .Placement = xlMove                        '圖片大小隨儲存格位置而改變

  47.                          With Sheets(i)                                    'A欄插入圖片名稱
  48.                            '.Cells(ii, 1) = P.Name                          '圖片檔案名稱
  49.                            .Cells(ii, 1) = P                              '圖片檔案完整路徑
  50.                          End With
  51.                   End With
  52.                 End With
  53.                 ii = ii + 1                                                '一次跳的欄位數
  54.               End If
  55.             Next
  56.         Next
  57.     End With
  58.    
  59. End Sub
複製代碼
學海無涯_不恥下問

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
8#
發表於 2012-2-20 10:15 | 只看該作者
回復 7# Hsieh

感謝版主的指正,其實這幾段程式也是先前請版主指正拼湊出來的,小弟不是很懂其中的意思,剛才的程式試run了一下,圖片一直重疊,debug後,發現sheet(i)沒有累加,現已經ok,2003年版的excel
picture,insert( ),無法延用至2010年版,小弟現在了解了,實在感謝!
  1. Sub STARTGETSINF()
  2. Dim Fs As Object, E, i As Integer, P, ii As Integer
  3.     Dim xlPath As String
  4.     Dim myWb As Workbook
  5.     Dim myFileName As String
  6. Cells.Clear
  7. ActiveWindow.Zoom = 75
  8. Rows("2:9999").EntireRow.AutoFit
  9. Columns("B:Y").ColumnWidth = 2

  11. With Application.FileDialog(msoFileDialogFolderPicker)
  12.         .AllowMultiSelect = False
  13.         .InitialFileName = "D:\Export\SINF\"
  14.         .Show
  15.         If .SelectedItems.Count = 0 Then Exit Sub
  16.         xlPath = .SelectedItems(1)
  17. End With

  19. With CreateObject("Scripting.FileSystemObject").GetFolder(xlPath)
  20.         i = 1
  21.         For Each E In .SubFolders
  22.             If i > ActiveWorkbook.Sheets.Count Then
  23.                 Sheets.Add(, Sheets(Sheets.Count)).Name = E.Name
  24.             Else
  25.                 Sheets(i).Name = E.Name
  26.             End If
  27.             ii = 2
  28.            For Each P In E.Files
  29.               If InStr(UCase(P.Name), ".JPG") Then
  30.                 ActiveWindow.Zoom = 75
  31.                                                 
  32.                 With Sheets(i).Cells(ii, 2).Select                         '設定圖片欄位大小
  33.                      With Selection
  34.                       .RowHeight = 60
  35.                       .ColumnWidth = 9.5
  36.                       .WrapText = True
  37.                      End With
  38.                      
  39.                       t = Cells(ii, 2).Top + Cells(ii, 2).Height * 0.1  '圖片上位置
  40.                       l = Cells(ii, 2).Left + Cells(ii, 2).Width * 0.1 '圖片左位置
  41.                       w = 50                                          '圖片縮小50%寬度
  42.                       h = 50                                         '圖片縮小50%高度

  44.                   With Sheets(i).Shapes.AddPicture(P, True, True, l, t, w, h) 'B欄插入圖片
  45.                       .Placement = xlMove                        '圖片大小隨儲存格位置而改變

  47.                          With Sheets(i)                                    'A欄插入圖片名稱
  48.                            '.Cells(ii, 1) = P.Name                          '圖片檔案名稱
  49.                            .Cells(ii, 1) = P                              '圖片檔案完整路徑
  50.                          End With
  51.                   End With
  52.                 End With
  53.                 ii = ii + 1                                                '一次跳的欄位數
  54.               End If
  55.             Next
  56.         [b][color=Red]i = i + 1[/color][/b]        Next
  57.     End With
  58.    
  59. End Sub
複製代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題