VBA读取指定工作簿里的一个sheet到我的excelfile怎么做

VBA读取指定工作簿里的一个sheet到我的excelfile怎么做,第1张

用getobject方法可以隐藏打开的工作簿对象,实现看上去没有打开的过程\x0d\sub test()\x0d\ dim wb as workbook\x0d\ dim sht as worksheet\x0d\ set wb=getobject("C:\Axls")\x0d\ set sht=wbworksheets(1)\x0d\ shtCellsCopy ThisWorkbookWorksheets(1)[A1]\x0d\ wbclose\x0d\ set wb=getobject("C:\Bxls")\x0d\ set sht=wbworksheets(2)\x0d\ shtCellsCopy ThisWorkbookWorksheets(2)[A1]\x0d\ wbclose\x0d\end sub

通过后端程序代码来读取Excel文件是有专业类库可以用的,不知道你读取Excel的具体需求是什么,下面以读取Excel文件,获取其中的文本和为例,代码供参考,注意在程序中引用spirexlsdll文件调用其提供的接口方法等 *** 作excel。方法示例如下:

读取

//加载Excel文档

Workbook workbook = new Workbook();

workbookLoadFromFile(@"添加xlsx");

//获取第一个工作表

Worksheet sheet = workbookWorksheets[0];

//获取工作表中的第一张

ExcelPicture picture = sheetPictures[0];

//将保存到指定路径

picturePictureSave(@"Image\imagepng", ImageFormatPng);

2 读取形状

//加载Excel文档

Workbook workbook = new Workbook();

workbookLoadFromFile("AddShapesxlsx");

//获取第一个工作表

Worksheet sheet = workbookWorksheets[0];

//从第一个形状中提取文本并保存到txt文件中

IPrstGeomShape shape1 = sheetPrstGeomShapes[0];

string s = shape1Text;

StringBuilder sb = new StringBuilder();

sbAppendLine(s);

FileWriteAllText("ShapeTexttxt", sbToString());

//从第二个形状中提取并保存到本地文件夹

IPrstGeomShape shape2 = sheetPrstGeomShapes[1];

Image image = shape2FillPicture;

imageSave(@"Image\ShapeImagepng", ImageFormatPng);

3 读取文本数据

这里可以通过文档格式转换的方式,将Excel转为txt文件

using SpireXls;

namespace Excel_to_Txt

{

class Program

{

static void Main(string[] args)

{

Workbook workbook = new Workbook();

workbookLoadFromFile(@"\ExceltoTxtxls");

Worksheet sheet = workbookWorksheets[0];

sheetSaveToFile("ExceltoTxttxt", " ", EncodingUTF8);

}

}

}

用getobject方法可以隐藏打开的工作簿对象,实现看上去没有打开的过程

sub test()

dim wb as workbook

dim sht as worksheet

set wb=getobject("C:\Axls")

set sht=wbworksheets(1)

shtCellsCopy ThisWorkbookWorksheets(1)[A1]

wbclose

set wb=getobject("C:\Bxls")

set sht=wbworksheets(2)

shtCellsCopy ThisWorkbookWorksheets(2)[A1]

wbclose

end sub

1、打开excel文件,点击“公式”栏,进而点击“定义名称”

2、把公式“=REPLACE(GETWORKBOOK(1),1,FIND("]",GETWORKBOOK(1)),)&T(NOW())”复制粘贴进对话框2处,并点击确认

3、在任意工作表单元内输入“=sheetname”并确认,得到第一张工作表的名称sheet1

4、选择拖动后全部的单元格范围,光标回到2处,在键盘下同时按下ctrl、shift、enter三个件后完成工作表的名称提取

5、因本文件涉及宏表函数,最后需保存为xlsm后缀宏格式的excel文件,并在下次打开文件时点击启动宏

以上就是关于VBA读取指定工作簿里的一个sheet到我的excelfile怎么做全部的内容,包括:VBA读取指定工作簿里的一个sheet到我的excelfile怎么做、c# 读取当前excel、VBA读取指定工作簿里的一个sheet到我的excel file等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9333740.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-04-27
下一篇2023-04-27

发表评论

登录后才能评论

评论列表(0条)

    保存