
excel
Sub xianshifilename()Dim x, a, ba = 0b = 1filestoopen = Application.GetOpenFilename(filefilter:="所有文深帮试望举降刘值件(*.*),*", MultiSelect:=True, Title:="需要的文件")x = 1While x = UBound(filestoopen) If x = Int(UBound(filestoopen) / 2) Then a = x - 1 b = 2 End If ActiveSheet.Cells(x - a, b) = filestoopen(x) x = x + 1WendEnd Sub不会用的话按下面的步骤:(看着麻烦,我打字更麻烦,但是操作很简单的)1、打开空白excel2、点工具---宏----录制新宏---确定3、点工具----宏---停止录制4、键盘上点alt+F11打开宏编辑页面,类似txt,里面的文字全部删除5、把我上面的命令复制到这里------再点关闭回到excel界面6、alt+F8-----可以看到宏命令的名字(xianshifilename)------执行7、选中你需要的文件,点击打开8、ok了,文件显示在了A列和B列,调整一下列宽就好了
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号