<em>excel</em> <em>VBA</em> 我想要在一个单元

'右键点击所在表格的下面的标签 选择 查看代码  粘贴以下代码
Public filepath As String'全局变7a686964616fe78988e69d83330量filepath
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set wjj = CreateObject("scripting.filesystemobject")
If ActiveCell.Column() = 1 Then'判断鼠标是否选择A列单元格
    If ActiveCell.Value <> "" Then'如果选中的单元格不为空
        filepath = ThisWorkbook.Path & "\" & ActiveCell.Value'设置文件夹目录为当前excel路径
        If Dir(filepath, vbDirectory) <> "" Then'判断文件夹是否存在
            filepath = ThisWorkbook.Path & "\" & ActiveCell.Value & "\"   
        Else
            MkDir filepath '新建文件夹
        End If
    End If
End 
If ActiveCell.Column() = 2 And filepath <> "" Then '判断鼠标是否选择B列单元格 且 filepath是否设置A列文件夹
        If ActiveCell.Value <> "" Then
            x = filepath & ActiveCell.Value
            If Dir(x, vbDirectory) <> "" Then Else MkDir x
        End If
End If
End Sub

Application.FileDialog

具体你要文件还是文件夹，多选还是单选自己再看看
举个例子，打开在Sheet1表中的A1中指定的路径下和zdA2中指定的已有文件：
Sub 打开指定文件()
Dim OpenFName$, FileSource$
OpenFName = Sheets("Sheet1").Range("A2") '读取在Sheet1表中的A2中的文件名，样式如回 A.XLS
FileSource = Sheets("Sheet1").Range("A1") '读取在Sheet1表中的A1中的路径，样式如 D:\
Workbooks.Open Filename:=FileSource + OpenFName '打开在Sheet1表中的A1中指定的答路径下和A2中指定的文件，样式如 在：D:\A.XLS
End Sub

插入一知个控件按钮道
该按钮的代码专如下属:

Private Sub CommandButton1_Click()

Dim a As Long
a = Int(InputBox("输入数字"))
ActiveCell.Value = a

End Sub