瀏覽量:6次
用excel VBA 編寫打開和關(guān)閉多個工作薄,相應(yīng)的代碼如下:
1、打開指定工作簿
dim wb as workbook
set wb = " 文件路徑及文件名"
workbooks.open filename:= wb
2、關(guān)閉所有工作簿并保存
workbooks.close
3、打開多個工作薄的程序代碼:
Sub OpenWorkbooks()
On Error Resume Next
Dim SelectFiles As Variant
'顯示打開文件對話框
SelectFiles = Application.GetOpenFilename("Excel 文件 (*.xl*)," & "*.xl*", , "打開", , True)
'未選擇
If TypeName(SelectFiles) = "Boolean" Then
Exit Sub
End If
'打開所選工作簿
For i = 1 To UBound(SelectFiles)
Workbooks.Open SelectFiles(i)
Next i
End Sub
上一篇: 手機抖音APP在實名認(rèn)證時出現(xiàn)“此身份證號已綁定其他賬號”的提示該如何解決,抖音實名已認(rèn)證
下一篇: 以不同顏色顯示Excel 2013單元格數(shù)據(jù)為整數(shù)的值,excel如何把不同顏色的提出來
[聲明]本網(wǎng)轉(zhuǎn)載網(wǎng)絡(luò)媒體稿件是為了傳播更多的信息,此類稿件不代表本網(wǎng)觀點,本網(wǎng)不承擔(dān)此類稿件侵權(quán)行為的連帶責(zé)任。故此,如果您發(fā)現(xiàn)本網(wǎng)站的內(nèi)容侵犯了您的版權(quán),請您的相關(guān)內(nèi)容發(fā)至此郵箱【779898168@qq.com】,我們在確認(rèn)后,會立即刪除,保證您的版權(quán)。
官網(wǎng)優(yōu)化
整站優(yōu)化
渠道代理
400-655-5776