作者：乔山办公网日期：
返回目录：excel表格制作
用百vba代码
Sub 另存所有工作度表知为工道作簿()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xls" '(工作表名称内为文件容名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
用vba打开浏览框选择文件就可以了百
Sub abc()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
If .Show = -1 Then
myfile = .SelectedItems(1)
End If
End With
Workbooks.Open myfile
End Sub
打开工作簿后需度要如何操作就可以自己发挥了。知
需要选择工作表搞个窗体也是很简单的，注：工作表名道称不管如何变化均会自动导入回复合框
A1单元格自动创答建数据有效性
应该是不会出错的，发表到我邮箱看看。或者把完整代码截图看、
VBA中，通过名称选中：sheets("sheet1") 'sheet1表示工作表的名称
VBA中，通过索引选中：sheets(1) '1代表第一个工作表