excel 数据处理

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