Sub C5C15_B3B13（）
Dim Fo作為對象，myName作為字符串
設置Fo =應用程序。文件對話框（msoFileDialogFilePicker）
Fo。Title =“請選擇要復制C5: C15數據的文件:“
如果Fo。Show = True Then myName = Fo。選擇項目（1）
如果我的名字=““那麽
MsgBox“您取消了文件選擇，因此此處理未完成，您將直接退出“，vbo only+VB information。
出口接頭
如果…就會結束
將wb設為工作簿
對於工作簿中的每個wb
如果wb。Fullname = myName然後轉到wbHasOpened
然後
set WB = workbooks . open（my name）
wbHasOpened:
將sh顯示為工作表
對於wb.sheets中的每個sh
如果sh.name =“語音質量”，則
【B3:b 13】= sh。【c5:c15】。價值
出口到
如果…就會結束
然後
Msgbox“處理完成！”
真關閉
末端接頭