1. 如何用vba实现导入一个excel文件，并复制该文件名到单元格内
没说清楚几亿个单元格的哪一个
2. 用VBA从一个EXCEL导入到另一个EXCEL
Sub test()Dim sheet1_b As Range, sheet1_c As Range, sheet1_d As RangeWith Sheets(“sheet1”)r1 = .[C65536].End(xlUp).RowIf r1 < 4 ThenMsgBox “没有数据！”Exit SubEnd IfSet sheet1_b = .Range(“B4:B” & r1)Set sheet1_c = .Range(“C4:C” & r1)Set sheet1_d = .Range(“D4:D” & r1)End WithWith Sheets(“Sheet2”)r2 = [A65536].End(xlUp).Row + 1.Range(“A” & r2).Resize(r1 – 4 + 1, 1) = sheet1_c.Value.Range(“B” & r2).Resize(r1 – 4 + 1, 1) = sheet1_b.Value.Range(“C” & r2).Resize(r1 – 4 + 1, 1) = sheet1_c.ValueEnd WithEnd Sub
3. 如何用VBA将excel的数据导入到另外个excel中
有三个问题：
a1：a1不就是A1单元格吗？
1月是a2：h9,2月，3月，4月是什么区域
book2需要提供具体路径的
完全明白，稍后给你写代码。
SubFrom1To2()DimWbAsWorkbook,MyInputNumAsByte,WbIsOpenAsBooleanForEachWbInApplication.WorkbooksIfLCase(Wb.FullName)=LCase(ThisWorkbook.Path&"ook2.xls")ThenWbIsOpen=TrueSetWb=Workbooks(ThisWorkbook.Path&"ook2.xls")ExitForEndIfNextWbIfNotWbIsOpenThenOnErrorGoToCheckSetWb=Application.Workbooks.Open_(Filename:=ThisWorkbook.Path&"ook2.xls")OnErrorGoTo0EndIfMyInputNum=Val(Range("A1").Value)IfMyInputNum<=0OrMyInputNum>12ThenExitSubRange(Cells(2,4*MyInputNum-3),Cells(9,4*MyInputNum)).Copy_Destination:=Wb.Worksheets(1).Cells(2,4*MyInputNum-3)ExitSubCheck:MsgBox"本路径下找不到book2.xls"EndSub
刚刚写完，还没调试。
4. 您好，使用VBA如何导入某一个Excel数据
'CN.Open "Provider=SQLOLEDB;Data Source=SQLEXPRESS;Initial Catalog=CPECC_Temp;Uid=SA;PWD=1234;Persist Security Info=false" '//SQLServer 本地链接 'Data Source=SQLEXPRESS '//计算机登陆名/服务器名称，链接本地服务器，就是本机的 'Initial Catalog=CPECC_Temp '//数据库名称 'Uid=SA 用户名 'PWD=1234 '/密码
5. 如何用VBA实现导入自定义路径的Excel文件
方法/步骤首先，Excel已有自定义函数（这里就不多说了，如果不了解自定义函数的，可以在我关于自定义函数的经验中找找看）。点击Excel左上角的”Office按钮“，选择”另存为“，”其他格式“。在弹出的新对话框中，选择”Excel97-2003加载宏（*.xla），然后选择保存的路径和保存的文件名，点击“保存”键即可。到这一步，实际上就完成了制作自定义加载项的工作，接下来，就是添加自定义加载项到Excel中了。随便打开一个新的Excel文件，点击左上角的“Office按钮”，选择下面的“Excel选项”，继续选择“加载项”。然后点击下方的“转到”按钮。这时候又弹出一个新的对话框出来，选择其中的“浏览”按钮。此时会出现一个“打开”对话框，找到在步骤3中储存的xla格式的文件，并点击“确定”按钮。8这时候，就可以看到左侧多了一个文件名，这说明按照正确的路径找到了这个文件，点击“确定”按钮，返回Excel。9这时候，就可以在Excel中，像自带的函数一样，随意使用模块中的两个函数了。而且任意时候，打开Excel，这个函数都是可以使用的。
6. 如何在ACCESS里用VBA导入一个EXCEL文件
启动excel1)菜单－》工具－》宏－》录制新宏2）菜单－》数据－》导入外部数据－》导入数据3）选择你的mdb文件，然后按提示导入4）点“结束录制”按钮，菜单－》工具－》宏－》vb编辑器，检查vba代码5）回工作簿，清空所有数据，在适当位置添加按钮，在按钮的click事件里调用宏所对应的方法
7. 如何使用VBA控件将文本文件导入EXCEL表格
你既然会用向导导入的话那就很容易获得VBA代码了。你点“录制宏”，然后开始手工导入一遍这个文件，全部导入完毕后点“停止录制”，然后编辑该宏就可以看到代码了，然后就可以根据需要修改了，比如说改一下文件名什么的。“录制宏”这个工具还是很好用的。你的意思是想通过对话框获得文件名么?给你一段代码，执行后，需要你先选择文本文件，然后清空excel当前页的内容，最后将此文件导入到excel中。注意:此代码只能导入以逗号作为分隔符的文本。SubMacro2()DimmyFileNameAsStringmyFileName=Application.GetOpenFilename("文本文件(*.txt),*.txt")ActiveSheet.Cells.ClearWithActiveSheet.QueryTables.Add(Connection:="TEXT;"+myFileName,Destination:=Range("A1")).TextFilePlatform=936.TextFileCommaDelimiter=True.RefreshEndWithEndSub有问题可以直接hi我。
8. 怎么用VBA批量提取文件包里面的文档第一行数据并导入excel，所有数据累积在一个excel
调试通过的例子的VBA代码如下图：
程序文本代码如下，请把例子中的*.txt修改为*.amp：
Option Explicit
Sub 导入文件的第一行()
Dim p$, f$, i&, s$
p = "d:doc" '文件所在位置，必须以结尾
f = Dir(p & "*.txt") '可能需要修改扩展名
While f <> ""
Open p & f For Input As #1
Input #1, s
Close #1
i = i + 1
Cells(i, 1) = f
Cells(i, 2) = s
f = Dir
Wend
End Sub
9. 用vba如何导入一个文件夹里的文件绝对路径(包含扩展名)到excel里
Sub MMM()Dim myPath$, myFile$, i&Application.ScreenUpdating = FalsemyPath = "D:\新建文件夹" & "\"myFile = Dir(myPath & "*.*")Do While myFile <> ""i = i + 1Cells(i, 1) = myPath & myFilemyFile = DirLoopApplication.ScreenUpdating = TrueEnd Sub
未经允许不得转载：山九号 » 在vba中怎么导入一个excel文件|用vba如何导入一个文件夹里的文件绝对路径(包含扩展名)到excel里
