通过VBA将一个EXCEL单元格的内容读取到另一个单元格？

Question

两个文件A.xlsm 和 A.xlsx , 用VBA将A.xlsx中sheet1的A3:W110的值读取到
A.xlsm中sheet1的A3:W110中。
这两个文件可以放在同一文件夹下！

麻烦大侠指点下代码吧？谢谢了！

Answer 1

通过VBA将一个EXCEL单元格的内容读取到另一个单元格的操作步骤如下：

1，在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。

2，将需要在表单中输入的文本框连接到指定的单元格，继续输入代码中显示的代码，并使用文本文本框的值链接到我们要输入的工作表单元格。

3，设置输入单元格中显示的内容的文本格式，大小，字体，对齐方式等。使用字体设置文本大小并根据输入自动调整单元格宽度。

4，设置取消按钮代码，隐藏表格，当我们按下取消按钮时，它会隐藏输入表格，然后创建一个表格设置为主界面，将工作表名称设置为主界面。

5，在开发工具中插入命令按钮，将命令按钮属性中的标题更改为要显示的文本，然后输入代码将表单调用到按钮，如图所示，效果是单击按钮时您可以调用创建的输入界面。

6，此时，当我们单击登录按钮时，将弹出设置表单。然后我们在表单的文本框中输入相应的内容，内容将根据我们设置的位置显示在相应的单元格中。

Answer 2

1、我们在vba中制作一个录入界面，设置录入按钮，设置录入按钮代码实现录入功能，双击录入按钮，将代码输入到代码窗口。

2、将窗体中需要输入的文本框连接到指定的单元格中，在代码中继续输入图中所示代码，使用text文本框的value值链接到我们想要输入的工作表单元格中。

3、设置输入单元格中的内容显示的文字格式，大小，字体，对齐方式等等。使用font设置文字大小，按照输入内容来自动调节单元格宽度。

4、设置取消按钮代码，隐藏窗体，当我们按下取消按钮的时候，将会隐藏输入窗体，然后再创建一个sheet设置为主界面，设置sheet名称为主界面。

5、在开发工具中插入命令按钮，更改命令按钮属性中的caption设置为想要显示的文字，然后给按钮输入调用窗体的代码，如图所示，这样做的效果是当点击按钮的时候可以调取制作好的录入界面。

6、这时候我们点击登录按钮会弹出设置好的窗体，我们然后在窗体中文本框内输入相应的内容，这些内容会按照我们设置的位置显示在相应的单元格中。

Answer 3

Sub YANG()
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开同目录下文件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
里面的错误在 Range("A5:A5:KH1500") '拷贝数据
应该是 Range("A5:KH1500") '拷贝数据

Answer 4

Sub aa()
Workbooks.Open ThisWorkbook.Path & "\A.xlsx" '打开同目录下文件
Sheet1.Range("A3:W110").Copy Workbooks("A.xlsm").Sheet1.Range("A3") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub

追问

Sub YANG()
Workbooks.Open ThisWorkbook.Path & "\NIDA.xlsx" '打开同目录下文件
Sheets("②Count Table").Range("A5:KH1500").Copy Workbooks("NIDA.xlsm").Sheets("②Count Table").Range("A5:A5:KH1500") '拷贝数据
ActiveWorkbook.Close = True '关闭A.xlsx
End Sub
朋友帮我看看吧，我只改了一部分代码，提示缺少函数或变量？

Answer 5

手写的，未验证，应该没问题

你在A.xlsx下按alt+f11，输入以下代码：

Sub ReadB()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim sheet As Excel.Worksheet
Dim i as Integer
Dim j as Integer

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open("d:\a.xlsx")
Set sheet = xlBook.Worksheets(1)

For i=1 to 22
For j=1 to 110
sheets(1).cells(i,j)=sheet.cells(i,j)
Next j
Next
xlBook.Close
End Sub