vba不打开excel文件取值(vba不打开excel读取数据)

1. vba不打开excel读取数据

我的思路是：利用VBA文件操作打开Excel文件，然后读取你文件模板中特定位置的数据，保存到当前表中，然后可以当前表一行存储一个Excel文件。

比如：

源表中A1、B2、B5、C3是数据内容。

可以依此保存到当前文件中的A1~D1。

然后A2~D2保存另一个同样格式文件的数据。

当然，如果你想完全用二进制保存应该也可以，无非自己做一些文件处理和还原的算法，比如用FileSystem处理。没有太多时间弄，你自己看看MSDN，研究一下吧。

简单写了一点测试代码，供参考：

PrivateSubCommandButton1_Click()

DimfileToOpenAsVariant

DimxlAsVariant

DimDestinationSheetAsWorksheet

DimSourceSheetAsWorksheet

DimCountAsInteger

SetDestinationSheet=ActiveWorkbook.Sheets(1)

fileToOpen=Application.GetOpenFilename("MicrosoftExcelFiles(*.xls),*.xls",,,,True)

Setxl=CreateObject("Excel.Sheet")

xl.Application.Workbooks.OpenfileToOpen,ReadOnly:=True

Count=1

ForEachSourceSheetInApplication.Worksheets

IfSourceSheet.Cells(1,1)<>""Then

SetChildDoc=ActiveWorkbook

MsgBoxSourceSheet.Cells(1,1)

DestinationSheet.Cells(Count,1).Value=SourceSheet.Cells(1,1).Value

Count=Count+1

ChildDoc.CloseSaveChanges:=False

EndIf

Next

EndSub

2. vba 不打开文件读取数据

我想要输出这样的一种格式，即每个提取的Excel文件对应一列数据，但是这个程序提取出来的数据都在一列，关键是把空值都去掉了（这样我很难区每一天的数据），这应该怎样解决啊

3. vba不打开word提取数据

Sub Example()

Dim myObject As Object

'对于浮动式文本框控件

Set myObject = ActiveDocument.Shapes(1).OLEFormat.Object

MsgBox myObject.Text

'对于嵌入式文本框控件

Set myObject = ActiveDocument.InlineShapes(1).OLEFormat.Object

MsgBox myObject.Text

'对于word的文本框图形（非控件）

Set myObject = ActiveDocument.Shapes(1).TextFrame.TextRange

MsgBox myObject.Text

End Sub

4. vba不打开excel就读取内容

数据量有点大，Excel公式啥的肯定是困难了。而我只会用Excel+VBA，所以给你个Excel+VBA的解决方法你参考一下吧。我用了很少的数据试验过了没啥问题，但是你的数据量比较大不能保证满足你的要求。

打开Excel后，用alt+f11打开vbe，输入下方代码，然后直接运行。

5. vba只读打开excel文件

调出编程菜单，在左上角Excel选项中，选择自定义，而后在众多个菜单选项中找到VisualBasic。

菜单加好后，点击它就进入编程界面了。

你装的Excel是中文的，编程界面就是中文菜单

6. excel无法打开vba

不知道这样符不符合你的要求(一个打开，一个恢复显示)：Sub 后台打开() Application.ScreenUpdating = False Workbooks.Open Filename:="D:\excel.xls" ActiveWindow.Visible = False Application.ScreenUpdating = TrueEnd SubSub 取消隐藏() Windows("excel.xls").Visible = TrueEnd Sub

7. vba不打开工作簿读取数据

通过VBA中的函数sheets(!workbook.worksheet).select，就可以将当前的文件指针指向所选的工作薄中的指定工作表。参数说明:workbook为工作簿名即文件名worksheet为工作表名当文件指针设定好后，就可以对指定文件的指定工作表进行操作了。

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

可有固定的文件名和固定的文件夹路径，可用搜索文件指令然后显示在列表框内进行顺序打开文件处理

9. vba不打开文件写入数据

方法/步骤如下

1

/9

1.打开电脑，点击鼠标右键，选择新建一个Excel文件。

2

/9

2.打开新建的Excel文件，编辑表格，录入数据。

3

/9

3.选择Excel界面上方的“开发工具”选项，然后点击“宏”选项。

4

/9

4.写上VBA代码的名称，然后点击“创建”按钮。

5

/9

5.在VBA编辑界面，写入指定的VBA代码，然后点击关闭按钮。

6

/9

6.点击插入一个按钮控件。

7

/9

7.将按钮控件命名为“删除单元格”，然后点击右键，选择“指定宏”选项。

8

/9

8.选择已经编写完成的VBA代码，然后点击“确定”按钮。

9

/9

9.点击按钮控件，单元格就自动删除完成了