返回列表 上一主題 發帖

問題，求救~~拜託

阿宗

帖子
13 
主題
4 
精華
0 
積分
66 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
性別
男 
註冊時間
2016-10-19 
最後登錄
2020-6-23 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-9-26 11:23 | 只看該作者

問題，求救~~拜託

各位大大，小弟的問題如下
要把111.xlsx.sheet(1).range("e5:f15")中的數值，分四次匯出到222.xlsx.sheet(1)中依序排列
每一次匯出後會把222.xlsx關閉，要匯出時再開啟。
以上問題，拜託各位大大，指導一下
收藏 分享
stone

阿宗

帖子
13 
主題
4 
精華
0 
積分
66 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
性別
男 
註冊時間
2016-10-19 
最後登錄
2020-6-23 
7#
發表於 2017-9-30 15:09 | 只看該作者
回復 6# Hsieh


    感謝版主大大 的會覆，小弟我在測試看看，謝謝!
stone

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 2017-9-28 14:52 | 只看該作者
本帖最後由 Hsieh 於 2017-9-28 14:55 編輯

回復 1# 阿宗
四次寫入資料
以下程式碼寫在111.xlsm的模組內
  1. Sub ex()
  2. Mypath = ThisWorkbook.Path '檔案目錄
  3. For i = 1 To 4
  4.    With Workbooks.Open(Mypath & "\222.xlsx") '開啟檔案
  5.       .Sheets(1).Cells(1, (i - 1) * 2 + 1).Resize(11, 2) = ThisWorkbook.Sheets(1).[E5:F15].Value '寫入資料
  6.       .Close 1 '關閉存檔
  7.    End With
  8. Next
  9. End Sub
複製代碼
學海無涯_不恥下問

TOP

阿宗

帖子
13 
主題
4 
精華
0 
積分
66 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
性別
男 
註冊時間
2016-10-19 
最後登錄
2020-6-23 
5#
發表於 2017-9-28 08:36 | 只看該作者
本帖最後由 阿宗 於 2017-9-28 08:38 編輯

回復 4# prin.huang

prin.huang 大大
                             小弟我是新手，用不出個所以然來，所以上來請教，拜託
~以下是我錄的巨集~
Sub 巨集1()
'
' 巨集1 巨集
'

'
    Range("E5:F15").Select
    Selection.Copy
    Range("E5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("E3").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("G5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Range("A1").Select
    Application.CutCopyMode = False
    Range("E5:F15").Select
    Selection.Copy
    Range("I5").Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.CutCopyMode = False
    Range("A1").Select
End Sub
stone

TOP

prin.huang

帖子
44 
主題
4 
精華
0 
積分
84 
點名
0  
作業系統
winxp 
軟體版本
sp2 
閱讀權限
20 
性別
男 
註冊時間
2016-10-12 
最後登錄
2021-11-10 
4#
發表於 2017-9-28 08:10 | 只看該作者
看文字的意思是，用錄的再改成你要的，應該只要再加上迴圈 & 儲存格位置加上公式

TOP

阿宗

帖子
13 
主題
4 
精華
0 
積分
66 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2016 
閱讀權限
20 
性別
男 
註冊時間
2016-10-19 
最後登錄
2020-6-23 
3#
發表於 2017-9-28 08:01 | 只看該作者
本帖最後由 阿宗 於 2017-9-28 08:14 編輯

回復 2# joey0415

joey0415 大大
                          我有試過用錄製的，但是不是我要的結果
                           我要的結果是
                           1.從A檔案複製"A1:B5"，開啟B檔案貼到"A1"，儲存B檔案，關閉B檔案
                           2.從A檔案複製"A1:B5"，開啟B檔案貼到"C1"，儲存B檔案，關閉B檔案
                           3.從A檔案複製"A1:B5"，開啟B檔案貼到"E1"，儲存B檔案，關閉B檔案
                           ~以上步驟分三次輸出，不是一次輸出，可能我上回沒說清楚，抱歉~
                            我記得是要用迴圈吧，但是我不會用，所以上來求救，拜託了
stone

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2017-9-26 20:17 | 只看該作者
回復 1# 阿宗

這種問題自己錄製一次就知道如何修改
不知 道自己練習了嗎？

先求有，再求好！

錄製範例：
  1. Sub Macro1()

  3.     Sheets("Sheet1").Select
  4.     Range("A1").Select
  5.     Selection.Copy
  6.     ChDir "C:\Users\Joey\Desktop"
  7.     Workbooks.Open Filename:="C:\Users\Joey\Desktop\b.xls"
  8.     Range("A1").Select
  9.     ActiveSheet.Paste
  10.     Application.CutCopyMode = False
  11.     ActiveWorkbook.Save
  12.     ActiveWindow.Close
  13.     Range("A1").Select
  14. End Sub
複製代碼

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題