vb读取excel数据(vba读取excel数据)

1. vba读取excel数据

所以需要先引入word库，操作步骤如下：

1.1 打开excel vba 界面1.2 选中其中的一个Module1.3 选择菜单， Tools --> References 在打开的对话框中选择类似 "Microsoft Word 14.0 Object Library".1.4 点击OK保存配置。

2. 打开文档 Set wordApplication = CreateObject("Word.Application") wordApplication.Visible = False Dim hasOpenDoc As Boolean hasOpenDoc = IsOpen(filePath) ' is a self-defined function to check file is opend If hasOpenDoc = True then Set wordDoc = GetObject(filePath) End if If hasOpenDoc = False Then Set wordDoc = wordApplication.Documents.Open(filePath) End if wordDoc.ActiveWith wordApplication Dim aParagraph As Word.Paragraph For Each aParagraph In wordDoc.Paragraphs ' do some thing to every paragraph. Next aParagraphEnd withwordDoc.CloseSet wordDoc = nothing' 如下这段代码引用某位牛人的，非常感谢他。由于路径丢失，不能给出链接, 抱歉' 如下的找寻方式，能够正确的找出文件是否被打开Function IsOpen(fileName As String) As Boolean IsOpen = False Dim findFile As Integer findFile = FreeFile() On Error GoTo ErrOpen Open fileName For Binary Lock Read Write As findFile Close findFile Exit FunctionErrOpen: If Err.Number <> 70 Then Msg = "Error # " & Str(Err.Number) & "was generated by " & Err.Source & Chr(13) & Err.Description MsgBox Msg, "Error", Err.HelpFile, Err.HelpContext Else IsOpen = True End IfEnd Function

2. vba 读取单元格内容

思路： 1、在需要读数的区域内循环 2、在循环体内首先判断该单元格是否为合并单元格， 是，读取合并区域的第一个单元格的值,即合并单元格的值，并作处理或保存在某单元格，跳出循环; 否，直接读取单元格的值，并作处理或保存在某单元格; 下面是VBA语句，定义 r,c 是增强程序的通用性，请视具体情况修改： Sub a() Dim r As Integer '行号 Dim c As Integer '列号 r = 2 c = 1 If Cells(r, c).MergeCells Then '是否是合并单元格 Debug.Print Cells(r, c).MergeArea.Cells(1, 1) '是，打印合并区域的第一个单元格的值,即合并单元格的值 Else Debug.Print Cells(r, c) '否，打印单元格的值 End If '可把if语句块放在循环中 End Sub ━━━━━━━━━━━━━━━━━━━━━━━━━

3. vba 读取excel

建一个文件夹，把目标txt文件和excel文件放入其中，在excel的宏编辑器中写入以下代码，有些地方可根据你的实际情况做相应改动：

Sub import_from_txt()

Dim file_name As String, my_path As String

Dim lines, cols

Dim i As Integer, j As Integer, k As Integer, q As Integer

Application.ScreenUpdating = False

Worksheets("Sheet1").Range("A1:Z65536").ClearContents

my_path = ThisWorkbook.Path

file_name = "test.txt"

'读取文件

Open my_path & "\" & file_name For Input As #1

lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)

Close #1

k = UBound(lines) + 1 '文件的行数

'遍历每一行

For i = 1 To k

cols = Split(lines(i - 1), ",") '以逗号作为分隔，将每行字符分割，分隔符可根据实际情况自己修改

q = UBound(cols) + 1 '分隔成的列数

For j = 1 To q '遍历该行的每一列

Worksheets("Sheet1").Cells(i, j) = cols(j - 1) '输出到表格中

Next

Next

MsgBox ("文件" & file_name & "读取完成,共" & k & "行")

Application.ScreenUpdating = True

End Sub

4. vba读取excel文件内容并写到新的excel文件

谢邀。可以在注册表里添加启动项，前提是有足够的权限。也可以创建一个快捷方式放在startup目录中。也也可以把程序注册成windows 服务， 运行方式为auto

5. vba读excel文件

1、打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面；

2、选择搜索框的下拉菜单，选择“worksheet”选项功能；

3、选择BeforeDoubleClick，也就是在本工作表鼠标双击（之前），将触发下面的代码程序；

4、选择完成后，这样会看到下面出现了两条代码；这俩条代码其实是在声明一个函数；

5、将鼠标放置在这两行代码之间，这时写上执行语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)；

6、然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值；

7、在sheet1的工作表中，双击鼠标会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。

6. vba读取excel数据但不打开文件

1.

首先打开Excel软件，点击左上角的文件菜单。

2.

接着选择左下角的选项菜单。选择自动以功能区的开发工具。

3.

点击顶部的开发工具菜单。点击VisualBasic按钮。

4.

最后即可打开VBA的编辑区域。

5、点击Visual Basic按钮。

6、最后即可打开VBA的编辑区域。