帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

1^# 跳轉到 »

發表於 2011-5-7 12:25 | 只看該作者

開啟另外一個活頁簿

本帖最後由 jesscc 於 2011-5-7 12:31 編輯

請教各位先進一個問題，我要在Main活頁簿中按"開檔比對"按鈕開啟另外一個活頁簿Matl Request *.xls(*代表不同的日期)

1.如果"Matl Request *.xls"尚未開啟，就在 "開啟檔案對話框" 中將它開啟，順便把檔名貼在Main活頁簿中的Range("D1")，以便後續程式由此取得檔名，進行相關工作(Workbooks(Workbooks("Main").Sheets("MRP").[D3].Text).Sheets("sheet1").Range("B11:N22").Copy Workbooks("Main").Sheets("MRP").Range("B11:N22"))。
2.如果"Matl Request *.xls"已開啟，就不用顯示 "開啟檔案對話框" 直接抓取這個檔名貼在Main活頁簿中的Range("D1")，以便後續程式由此取得檔名，進行相關工作。

可是我的寫法好像沒什麼作用，不知道問題在哪裡?可以幫我看看嗎?謝謝!

test.rar (21.15 KB)

Jess

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-5-7 13:40 | 只看該作者

回復 1# jesscc

Sub OpenFile1()
FileToOpen = Application.GetOpenFilename _
(Title:="開啟本週需求表", _
FileFilter:="Matl Request *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "必須開啟需求表，工作才能繼續!", 48, "檔案未開啟"
Exit Sub
Else
op = False
fn = Split(FileToOpen, "\")(UBound(Split(FileToOpen, "\")))
Var = MsgBox("確定是開啟這份需求表嗎?", 36, "請確認欲開啟之檔案")
If Var = 6 Then
For Each w In Windows '檢查檔案是否已開啟
If w.Caption = fn Then op = True: Exit For
Next
If op = False Then Workbooks.Open Filename:=FileToOpen '如果視窗中沒有開啟需求表就開啟需求表
Set aw = Workbooks(fn) '將需求表設給物件變數以利後續使用
Workbooks("Main.xls").Activate
Sheets("MRP").Range("D1").Value = fn '將需求表檔名寫入儲存格
Else
End If
End If
End Sub

複製代碼

學海無涯_不恥下問

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2011-5-7 14:16 | 只看該作者

本帖最後由 GBKEE 於 2011-5-7 14:32 編輯

回復 1# jesscc
可是我的寫法好像沒什麼作用，不知道問題在哪裡?
Sub OpenFile1()
FileToOpen = Application.GetOpenFilename _
(Title:="開啟本週需求表", _
FileFilter:="Matl Request *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "必須開啟需求表，工作才能繼續!", 48, "檔案未開啟"
Exit Sub
Else
Var = MsgBox("確定是開啟這份需求表嗎?", 36, "請確認欲開啟之檔案")
'No ->Var =7
'Yes->Var =6
If Var = 6 Then
Workbooks.Open Filename:=FileToOpen
Workbooks("Main.xls").Activate
Sheets("MRP").Range("D1").Value = FileToOpen
Else
End If
End If
End Sub

MsgBox 按鍵判斷

Sub Ex()
A = MsgBox("確定是開啟這份需求表嗎?", vbYesNoCancel, "請確認欲開啟之檔案")
If A = vbYes Then
MsgBox "開啟檔案"
ElseIf A = vbNo Then
MsgBox "不開啟檔案"
ElseIf A = vbCancel Then
MsgBox "取消"
End If
End Sub

複製代碼

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

4^#

發表於 2011-5-7 14:33 | 只看該作者

原來這麼複雜，本來還以為是很簡單的動作呢?
感謝 Hsieh 大!
不過剛剛測試，還是有一點小問題。如果我已經先打開了Matl Request *.xls，然後才在Main活頁簿中按"開檔比對"按鈕，結果還是會出現 "開啟檔案對話框" ，在這種情形下可以略過"開啟檔案對話框"，直接跳到我的工作嗎?

Jess

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-5-7 14:42 | 只看該作者

本帖最後由 Hsieh 於 2011-5-7 14:46 編輯

回復 4# jesscc

那你怎麼讓程式知道你想開的檔名是甚麼?
例如已有2個不同日期的類似檔名，要用哪一個?

學海無涯_不恥下問

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

6^#

發表於 2011-5-7 15:17 | 只看該作者

本帖最後由 jesscc 於 2011-5-7 18:23 編輯

說得也是，我不知不覺就把人的思考帶進電腦裏了。
Hsieh 大大可以再幫我看一下嗎?
在最後，陣列轉移需求表資料的地方出現偵錯!可不可以幫我檢查一下是哪裡錯了嗎?是因為陣列無法轉移需求表裏的公式嗎?

Sub OpenFile1()
FileToOpen = Application.GetOpenFilename _
(Title:="開啟本週需求表", _
FileFilter:="Matl Request *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "必須開啟需求表，工作才能繼續!", 48, "檔案未開啟"
Exit Sub
Else
op = False
fn = Split(FileToOpen, "\")(UBound(Split(FileToOpen, "\")))
'Var = MsgBox("確定是開啟這份需求表嗎?", 36, "請確認欲開啟之檔案")
'If Var = 6 Then
For Each w In Windows '檢查檔案是否已開啟
If w.Caption = fn Then op = True: Exit For
Next
If op = False Then Workbooks.Open FileName:=FileToOpen '如果視窗中沒有開啟需求表就開啟需求表
Set aw = Workbooks(fn) '將需求表設給物件變數以利後續使用
Workbooks("Main.xls").Activate
Sheets("MRP").Range("D1").Value = fn '將需求表檔名寫入儲存格
'Else
End If
'陣列轉移需求表資料
Workbooks(fn).Activate
Dim Ay()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To 14
ReDim Preserve Ay(s)
Ay(s) = Array(Cells(i, j).Value)
s = s + 1
Next j
Next i
Workbooks("Main.xls").Activate
With Sheets("MRP")
Cells(4, 14).NumberFormat = "dd/mm/yyyy"
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Resize(s, 13) = Application.Transpose(Application.Transpose(Ay))
End With
End sub

複製代碼

Jess

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

7^#

發表於 2011-5-7 18:15 | 只看該作者

aw.Sheets("sheet1").[B11:N22].Copy Workbooks("Main").Sheets("MRP").[B11:N22]

學海無涯_不恥下問

TOP

jesscc

中學生 Rank: 2

帖子: 162
主題: 44
精華: 0
積分: 244
點名: 0
作業系統: windows 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-4-4
最後登錄: 2022-10-3

論壇贊助勳章

8^# 倒序看帖

打印

字體大小: tT

發表於 2011-5-13 00:34 | 只看該作者

MsgBox 的問題

本帖最後由 jesscc 於 2011-5-13 00:48 編輯

以下代碼，想做的動作是:
按"確定"會刪除Range("B7:J1000")的資料，按下"取消"就退出程式，不做動作。
可是不管我按哪一個都沒有作用，是哪裡有錯嗎?

Sub Macro1()
MsgBox "這樣做會清除 NEW 工作頁的資料!" & vbCrLf & vbCrLf & "你確定要這樣做嗎?", vbOKCancel + vbQuestion, "清除 NEW 原始資料!"
If Var = 1 Then
Worksheets("NEW").Range("B7:J1000").ClearContents
End If
If Var = 2 Then
Exit Sub
End If
End Sub

複製代碼

1 評分人數

GBKEE: 問題已提問過不用心 2,3樓回覆了金錢 -2

Jess