excel 打开文件夹
1.首先自定义控件,开发工具显示出来
2.点击按钮,在表格中添加按钮
3.右键点击按钮,然后找到指定宏这一栏,点击进去,添加以下代码
Sub 按钮5_Click()
Dim fdg As FileDialog '声明控件
Dim filename$
Set fdg = Application.FileDialog(msoFileDialogOpen) '表示文件对话框的实例。
' Microsoft Excel 打开文件对话框,允许用户选择一个或多个文件。选中这些文件之后,逐个打开每个文件的路径。
With fdg
.Filters.Clear '清除filter,注意顺序
.Filters.Add "CSV (逗号分隔)(*.csv)", "*.csv" '设置过滤器
.Filters.Add "所有文件(*.*)", "*.*" '设置过滤器
.InitialFileName = ThisWorkbook.Path '设置默认文件夹
.Show
For lngCount = 1 To .SelectedItems.Count '循环所有选中的文件
Set xlBook = Workbooks.Open(.SelectedItems(lngCount)) '打开所有选中的文件
Next lngCount
End With
End Sub
'指定文件夹
Sub OPIONA()
With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear '清除filter,注意顺序
.Filters.Add "所有文件", "*.*", 1 '增加筛选器的项目为所有WORD文件
.Filters.Add "EXCEL2003", "*.xls", 1 '设置过滤器
.AllowMultiSelect = False '不允许多项选择
.InitialFileName = ThisWorkbook.Path '设置默认文件夹
If .Show = -1 Then
Fila_name = .SelectedItems(1)
Else
Exit Sub
End If
End With
MsgBox "你选择的文件是: " & Fila_name
End Sub
2.excel 点击按钮添加表格
主要是找到一个单元格关联一列数据
关联一列数据:在要动态变化的这一列数据的第一个单元格里添加=OFFSET(A1,0,$I$3) 然后向下拉,自动递增,一下数据也被关联
单元格:在I3单元格里输入1,i3即被关联
在自定义控件中添加选项按钮,右键,设置控件格式,选择单元格链接,填入I3