VBA 请求帮助

jingxin290

各位大神过年好，

请帮忙看一下这个宏要怎么改呢. 录制宏的文件路径是指定的 我想改成可以在任意文件夹里选txt文档呢? 然后按格式复制粘贴到excel里. 谢谢!

半百

excel玉米

在原有录制的代码上修改而成

jingxin290

excel玉米 发表于 2024-2-20 12:41
在原有录制的代码上修改而成

谢谢回复!
我试了一下 导入的文件没有直接复制在excel里 而是生成了新的. 可不可以直接复制粘贴在原excel里呀?

excel玉米

jingxin290 发表于 2024-2-20 14:48
谢谢回复!
我试了一下 导入的文件没有直接复制在excel里 而是生成了新的. 可不可以直接复制粘贴在原exce ...

在你提供的原工作薄里，11,12,13三个工作表，复制粘贴进去的。

jingxin290

excel玉米 发表于 2024-2-20 17:10
在你提供的原工作薄里，11,12,13三个工作表，复制粘贴进去的。

大神 实在是太厉害了 解决了我一直的困扰. 太太太太感谢了.

jingxin290

excel玉米 发表于 2024-2-20 17:10
在你提供的原工作薄里，11,12,13三个工作表，复制粘贴进去的。

不好意思再打扰一下 这个地方不是特别的明白 可以帮忙解答一下吗? 谢谢
shName = Split(.SelectedItems(lngCount), "\")(UBound(Split(.SelectedItems(lngCount), "\")))
       shName = Split(shName, ".")(0)

excel玉米

jingxin290 发表于 2024-2-27 14:22
不好意思再打扰一下 这个地方不是特别的明白 可以帮忙解答一下吗? 谢谢
shName = Split(.SelectedItems( ...

shName = Split(.SelectedItems(lngCount), "\")(UBound(Split(.SelectedItems(lngCount), "\")))
.SelectedItems(lngCount)  这个是选择的文件名称，大概像是D:\文件夹\文件夹\文件名称.xlsx 这样的形式。
用【D:\文件夹\文件夹\文件名称.xlsx】来举例， 将其用split函数，关键字符“\"来分割为数组{”D:“，”文件夹“，”文件夹“，”文件名称.xlsx“}的形式，而ubound(数组)表示取这个数组的下标，也就是shname=文件名称.xlsx
shName = Split(shName, ".")(0)---这一句继续将【文件名称.xlsx】用split函数，关键字符”.“来分割为数组{”文件名称“，”xlsx"},数组的上标可以用 数组(0) 来表示，所以  shName = Split(shName, ".")(0)  这一段就表示shname=文件名称  

jingxin290

excel玉米 发表于 2024-2-28 09:12
shName = Split(.SelectedItems(lngCount), "\")(UBound(Split(.SelectedItems(lngCount), "\")))
.Sele ...

明白了
还有一个问题 就是这个文件名称发生变化了之后 好像就不能导入了
Windows("sheet1.xlsm"). Activate. 这个地方要怎么变化呢? 实际运用的时候文件名会不一样的.

excel玉米

jingxin290 发表于 2024-2-28 15:18
明白了
还有一个问题 就是这个文件名称发生变化了之后 好像就不能导入了
Windows("sheet1.xlsm"). Act ...

在程序开始时，
dim ws as workbook
set ws =thisworkbook
然后在Windows("sheet1.xlsm"). Activate这里改为 ws. Activate 即可