返回列表 上一主題 發帖

[發問] 另存新檔 怎麼把欄寛跟列高也複製到新表格?

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2026-5-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-11-22 12:45 | 顯示全部帖子

[發問] 另存新檔 怎麼把欄寛跟列高也複製到新表格?

另存新檔 怎麼把欄寛跟列高也複製到新表格?
另外請問怎麼吧值複製過去就好，不要公式?

1空白報價單.rar (50.07 KB)
  1. Sub EX()
  2. Set xSh = Sheets("報價單")
  3. Set zSh = Sheets("請款單")

  5. iPath$ = ActiveWorkbook.Path & "\" '指定路徑"
  6. NewName$ = Format(Now, "yyyymmddhhmmss") & CStr([查表!C4])
  7. Set ibook = ActiveWorkbook
  8. With Workbooks.Add: ibook.Activate
  9.   [報價單!A1:I45].Copy .Sheets(1).[A1]: .Sheets(1).Name = "報價單"
  10.   [請款單!A1:I45].Copy .Sheets(2).[A1]: .Sheets(2).Name = "請款單"
  11.   .SaveAs iPath & NewName: .Close True

  13. End With: Set ibook = Nothing


  16. End Sub
複製代碼
收藏 分享
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2026-5-11 
2#
發表於 2019-11-23 10:16 | 顯示全部帖子
回復 2# n7822123
太感謝了。
原來我把簡單的事複雜化了
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2026-5-11 
3#
發表於 2019-11-24 02:14 | 顯示全部帖子
本帖最後由 kkooo15 於 2019-11-24 02:15 編輯

回復 4# 准提部林


大大我用了你的方式，可是按扭還是會過去也
  是不是我用錯了什麼地方?

1空白報價單.rar (50.46 KB)
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

kkooo15
　暱稱: 新手

中學生Rank: 2

帖子
123 
主題
37 
精華
0 
積分
177 
點名
0  
作業系統
WIN10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2011-11-9 
最後登錄
2026-5-11 
4#
發表於 2019-11-27 09:50 | 顯示全部帖子
回復 6# 准提部林

我的是2010
用第一個程式碼會跳出這樣

第二個就正常..
excel學習中!築出夢想
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題