從A EXCEL 檔將資料寫至 B EXCEL檔中
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2015-4-29
- 最後登錄
- 2018-1-5
|
從A EXCEL 檔將資料寫至 B EXCEL檔中
各位前輩,
請教各位前輩
要將 A.XLS中 的 "店名" 工作表 內的 A2:An , n 表示不知道會有幾間店
寫入B.XLS中的 "業績統計" 工作表 的 A3 : An+1 內
不知道 EXCEL VBA 要如何撰寫? (VBA程式寫在 B.XLS 中)
這裡面我的困難點在
1、不同EXCEL檔案的資料讀取運作方式?
2、要如何算 A.XLS 共有幾家店 ?
3、進階問題，如果A有重複店名，要如何判斷？(因為B.XLS 店名不可重複)
先謝謝前輩 |
|
|
|
|
|
|
|
- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
6#
發表於 2015-5-7 20:17
| 只看該作者
回復 5# stillfish00
stillfish00 大大真是太酷了,還有這種方式,從您身上真的學到很多東西呢!居然還可以指定網站搜尋 |
|
|
PKKO
|
|
|
|
|
- 帖子
- 1018
- 主題
- 15
- 精華
- 0
- 積分
- 1058
- 點名
- 0
- 作業系統
- win7 32bit
- 軟體版本
- Office 2016 64-bit
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2012-5-9
- 最後登錄
- 2022-9-28
|
5#
發表於 2015-5-7 20:03
| 只看該作者
|
|
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
4#
發表於 2015-5-7 16:43
| 只看該作者
回復 3# ooctiger
討論區的回文多看一些 |
|
|
|
|
|
|
|
- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 3
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 註冊時間
- 2015-4-29
- 最後登錄
- 2018-1-5
|
3#
發表於 2015-5-7 16:12
| 只看該作者
本帖最後由 ooctiger 於 2015-5-7 16:15 編輯
回復 2# GBKEE
如果A.xls 是 '未開啟' 的情況下，程式要如何修改
假設 A.xls 是放在 C:\temp 下
另外程式碼第17行
.Resize(D.Count) = Application.WorksheetFunction.Transpose(D.KEYS)
，可否請GBKEE稍作解釋，並提供可以查詢到的網頁。
實在是新手. 連要怎麼去搜尋都還是問題
謝謝 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
2#
發表於 2015-5-7 14:04
| 只看該作者
回復 1# ooctiger
A,B 已開啟下的程式碼- Option Explicit
- Sub Ex()
- Dim D As Object, i As Integer
- Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件
- '1、不同EXCEL檔案的資料讀取運作方式?
- With Workbooks("a.xls").Sheets("店名")
- i = 2
- Do While .Cells(i, "a") <> ""
- D(.Cells(i, "a").Value) = ""
- '3、進階問題，如果A有重複店名，要如何判斷？(因為B.XLS 店名不可重複)
- '如果A有重複店名,字典物件只取最後的店名
- i = i + 1
- Loop
- MsgBox i - 2 '2、要如何算 A.XLS 共有幾家店 ?
- End With
- With Workbooks("B.xls").Sheets("業績統計").Range("A3")
- .Resize(D.Count) = Application.WorksheetFunction.Transpose(D.KEYS)
- End With
- End Sub
|
|
|
|
|
|
|
|
