excel的vba问题，后台调用其他excel数据_框架

不打开表格取其它工作表的数据：

Sub a()

Dim wb As Workbook

Dim str, x

str = "D:\d\123xlsx"

Set wb = GetObject(str) '取得123这个文件

x = wbSheets(1)Cells(1, 1) '取得123文件A1的值

Sheets(1)Range("b1") = x '把值取出来放到新的工作表

End Sub

1方法一：采用OleDB读取EXCEL文件：

把EXCEL文件当做一个数据源来进行数据的读取 *** 作，实例如下：

public DataSet ExcelToDS(string Path)

{

string strConn = "Provider=MicrosoftJetOLEDB40;" +"Data Source="+ Path +";"+"Extended Properties=Excel 80;";

OleDbConnection conn = new OleDbConnection(strConn);

connOpen();

string strExcel = "";

OleDbDataAdapter myCommand = null;

DataSet ds = null;

strExcel="select from [sheet1$]";

myCommand = new OleDbDataAdapter(strExcel, strConn);

ds = new DataSet();

myCommandFill(ds,"table1");

return ds;

}

对于EXCEL中的表即sheet([sheet1$])如果不是固定的可以使用下面的方法得到

string strConn = "Provider=MicrosoftJetOLEDB40;" +"Data Source="+ Path +";"+"Extended Properties=Excel 80;";

OleDbConnection conn = new OleDbConnection(strConn);

DataTable schemaTable = objConnGetOleDbSchemaTable(SystemDataOleDbOleDbSchemaGuidTables,null);

string tableName=schemaTableRows[0][2]ToString()Trim();

另外：也可进行写入EXCEL文件，实例如下：

public void DSToExcel(string Path,DataSet oldds)

{

//先得到汇总EXCEL的DataSet 主要目的是获得EXCEL在DataSet中的结构

string strCon = " Provider = MicrosoftJetOLEDB40 ; Data Source ="+path1+";Extended Properties=Excel 80" ;

OleDbConnection myConn = new OleDbConnection(strCon) ;

string strCom="select from [Sheet1$]";

myConnOpen ( ) ;

OleDbDataAdapter myCommand = new OleDbDataAdapter ( strCom, myConn ) ;

ystemDataOleDbOleDbCommandBuilder builder=new OleDbCommandBuilder(myCommand);

//QuotePrefix和QuoteSuffix主要是对builder生成InsertComment命令时使用。

builderQuotePrefix="["; //获取insert语句中保留字符（起始位置）

builderQuoteSuffix="]"; //获取insert语句中保留字符（结束位置）

DataSet newds=new DataSet();

myCommandFill(newds ,"Table1") ;

for(int i=0;i<olddsTables[0]RowsCount;i++)

{

在使用ImportRow后newds内有值，但不能更新到Excel中因为所有导入行的

DataRowState!=Added

DataRow nrow=aDataSetTables["Table1"]NewRow();

for(int j=0;j<newdsTables[0]ColumnsCount;j++)

{

nrow[j]=olddsTables[0]Rows[i][j];

}

newdsTables["Table1"]RowsAdd(nrow);

}

myCommandUpdate(newds,"Table1");

myConnClose();

}

2方法二：引用的com组件：MicrosoftOfficeInteropExceldll 读取EXCEL文件

首先是Exceldll的获取,将Office安装目录下的Excelexe文件Copy到DotNet的bin目录下,cmd到该目录下,运行 TlbImp EXCELEXE Exceldll 得到Dll文件。再在项目中添加引用该dll文件

//读取EXCEL的方法 (用范围区域读取数据)

private void OpenExcel(string strFileName)

{

object missing = SystemReflectionMissingValue;

Application excel = new Application();//lauch excel application

if (excel == null)

{

ResponseWrite("<script>alert('Can't access excel')</script>");

}

else

{

excelVisible = false; excelUserControl = true;

// 以只读的形式打开EXCEL文件

Workbook wb = excelApplicationWorkbooksOpen(strFileName, missing, true, missing, missing, missing,

missing, missing, missing, true, missing, missing, missing, missing, missing);

//取得第一个工作薄

Worksheet ws = (Worksheet)wbWorksheetsget_Item(1);

//取得总记录行数 (包括标题列)

int rowsint = wsUsedRangeCellsRowsCount; //得到行数

//int columnsint = mySheetUsedRangeCellsColumnsCount;//得到列数

//取得数据范围区域 (不包括标题列)

Range rng1 = wsCellsget_Range("B2", "B" + rowsint); //item

Range rng2 = wsCellsget_Range("K2", "K" + rowsint); //Customer

object[,] arryItem= (object[,])rng1Value2; //get range's value

object[,] arryCus = (object[,])rng2Value2;

//将新值赋给一个数组

string[,] arry = new string[rowsint-1, 2];

for (int i = 1; i <= rowsint-1; i++)

{

//Item_Code列

arry[i - 1, 0] =arryItem[i, 1]ToString();

//Customer_Name列

arry[i - 1, 1] = arryCus[i, 1]ToString();

}

ResponseWrite(arry[0, 0] + " / " + arry[0, 1] + "#" + arry[rowsint - 2, 0] + " / " + arry[rowsint - 2, 1]);

}

excelQuit(); excel = null;

Process[] procs = ProcessGetProcessesByName("excel");

foreach (Process pro in procs)

{

proKill();//没有更好的方法,只有杀掉进程

}

GCCollect();

}

3方法三：将EXCEL文件转化成CSV（逗号分隔）的文件，用文件流读取(等价就是读取一个txt文本文件)。

先引用命名空间:using SystemText;和using SystemIO;

FileStream fs = new FileStream("d:\\Customercsv", FileModeOpen, FileAccessRead, FileShareNone);

StreamReader sr = new StreamReader(fs, SystemTextEncodingGetEncoding(936));

string str = "";

string s = ConsoleReadLine();

while (str != null)

{ str = srReadLine();

string[] xu = new String[2];

xu = strSplit(',');

string ser = xu[0];

string dse = xu[1]; if (ser == s)

{ ConsoleWriteLine(dse);break;

}

} srClose();

另外也可以将数据库数据导入到一个txt文件，实例如下：

//txt文件名

string fn = DateTimeNowToString("yyyyMMddHHmmss") + "-" + "PO014" + "txt";

OleDbConnection con = new OleDbConnection(conStr);

conOpen();

string sql = "select ITEM,REQD_DATE,QTY,PUR_FLG,PO_NUM from TSD_PO014";

//OleDbCommand mycom = new OleDbCommand("select from TSD_PO014", mycon);

//OleDbDataReader myreader = mycomExecuteReader(); //也可以用Reader读取数据

DataSet ds = new DataSet();

OleDbDataAdapter oda = new OleDbDataAdapter(sql, con);

odaFill(ds, "PO014");

DataTable dt = dsTables[0];

FileStream fs = new FileStream(ServerMapPath("download/" + fn), FileModeCreate, FileAccessReadWrite);

StreamWriter strmWriter = new StreamWriter(fs); //存入到文本文件中

//把标题写入txt文件中

//for (int i = 0; i <dtColumnsCount;i++)

//{

// strmWriterWrite(dtColumns[i]ColumnName + " ");

//}

foreach (DataRow dr in dtRows)

{

string str0, str1, str2, str3;

string str = "|"; //数据用"|"分隔开

str0 = dr[0]ToString();

str1 = dr[1]ToString();

str2 = dr[2]ToString();

str3 = dr[3]ToString();

str4 = dr[4]ToString()Trim();

strmWriterWrite(str0);

strmWriterWrite(str);

strmWriterWrite(str1);

strmWriterWrite(str);

strmWriterWrite(str2);

strmWriterWrite(str);

strmWriterWrite(str3);

strmWriterWriteLine(); //换行

}

strmWriterFlush();

strmWriterClose();

if (conState == ConnectionStateOpen)

{

conClose();

}

是挺乱的。。

或者是

cells（x1,y1）

then

elseif

xlappcells(i,

2)value

then

这为什么不写成

elseif

xlappcells(i,

2)value

=ts

then

你是只要查找b列=ts的行号吗？

dim

srt

string

dim

integer

srt

="等于ts的行号有"

for

65536

xlappcells(i,

2)value

then

srt=

srt

","

end

msgbox

srt

没跑过。。不知道行不行。。

1、点击Excel界面左下角的录制宏按钮录制宏。

2、在宏名处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在个人宏工作簿并点击确定按钮。

3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。

4、按Alt+F11打开VBE界面，如下图。

5、在代码部分输入或者粘贴执行某项特定功能的代码。

6、在功能区（Ribbon）上鼠标右键，选择自定义快速访问工具栏。

7、向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。

8、双击“获取Excel数据”按钮，在打开的代码编辑窗口中，输入以下代码。

9、双击“Sheet1”工作表，在d出的代码编辑窗口中输入如下代码。

10、返回Excel表格，激活Sheet1工作表，就可以看到窗口d出，同时点击“获取Excel数据”按钮，就可以读取Excel中的数据啦。

最近由于经常要用到Excel，需要根据Excel表格中的内容对一些apk进行处理，手动处理很麻烦，于是决定写脚本来处理。首先贴出网上找来的读写Excel的脚本。

1读取Excel(需要安装xlrd)：

123456789101112131415161718192021222324#-- coding: utf8 --import xlrd fname = "reflectxls"bk = xlrdopen_workbook(fname)shxrange = range(bknsheets)try: sh = bksheet_by_name("Sheet1")except: print "no sheet in %s named Sheet1" % fname#获取行数nrows = shnrows#获取列数ncols = shncolsprint "nrows %d, ncols %d" % (nrows,ncols)#获取第一行第一列数据cell_value = shcell_value(1,1)#print cell_value row_list = []#获取各行数据for i in range(1,nrows): row_data = shrow_values(i) row_listappend(row_data)

2写入Excel（需安装pyExcelerator）

12345678from pyExcelerator import w = Workbook() #创建一个工作簿ws = wadd_sheet('Hey, Hades') #创建一个工作表wswrite(0,0,'bit') #在1行1列写入bitwswrite(0,1,'huang') #在1行2列写入huangwswrite(1,0,'xuan') #在2行1列写入xuanwsave('minixls') #保存

3再举个自己写的读写Excel的例子

读取reflectxls中的某些信息进行处理后写入minixls文件中。　

1234567891011121314151617181920212223242526272829303132333435363738394041424344#-- coding: utf8 --import xlrdfrom pyExcelerator import w = Workbook()ws = wadd_sheet('Sheet1') fname = "reflectxls"bk = xlrdopen_workbook(fname)shxrange = range(bknsheets)try: sh = bksheet_by_name("Sheet1")except: print "no sheet in %s named Sheet1" % fname nrows = shnrowsncols = shncolsprint "nrows %d, ncols %d" % (nrows,ncols) cell_value = shcell_value(1,1)#print cell_value row_list = []mydata = []for i in range(1,nrows): row_data = shrow_values(i) pkgdatas = row_data[3]split(',') #pkgdatassplit(',') #获取每个包的前两个字段 for pkgdata in pkgdatas: pkgdata = ''join((pkgdatasplit(''))[:2]) mydataappend(pkgdata) #将列表排序 mydata = list(set(mydata)) print mydata #将列表转化为字符串 mydata = ','join(mydata) #写入数据到每行的第一列 wswrite(i,0,mydata) mydata = [] row_listappend(row_data[3])#print row_list wsave('minixls')

4现在我需要根据Excel文件中满足特定要求的apk的md5值来从服务器获取相应的apk样本，就需要这样做：　

123456789101112131415161718192021222324252627282930313233#--coding:utf8--import xlrdimport osimport shutil fname = "/excelnamexls"bk = xlrdopen_workbook(fname)shxrange = range(bknsheets)try: #打开Sheet1工作表 sh = bksheet_by_name("Sheet1")except: print "no sheet in %s named Sheet1" % fname#获取行数nrows = shnrows#获取列数ncols = shncols#print "nrows %d, ncols %d" % (nrows,ncols)#获取第一行第一列数据cell_value = shcell_value(1,1)#print cell_value row_list = []#range(起始行,结束行)for i in range(1,nrows): row_data = shrow_values(i) if row_data[6] == "HXB": filename = row_data[3]+"apk" #print "%s %s %s" %(i,row_data[3],filename) filepath = r"/1/"+filename print "%s %s %s" %(i,row_data[3],filepath) if ospathexists(filepath): shutilcopy(filepath, r"/myapk/")

补充一个使用xlwt3进行Excel文件的写 *** 作。

1234567891011121314151617181920212223242526import xlwt3 if __name__ == '__main__': datas = [['a', 'b', 'c'], ['d', 'e', 'f'], ['g', 'h']]#二维数组 file_path = 'D:\\testxlsx' wb = xlwt3Workbook() sheet = wbadd_sheet('test')#sheet的名称为test #单元格的格式 style = 'pattern: pattern solid, fore_colour yellow; '#背景颜色为** style += 'font: bold on; '#粗体字 style += 'align: horz centre, vert center; '#居中 header_style = xlwt3easyxf(style) row_count = len(datas) col_count = len(datas[0]) for row in range(0, row_count): col_count = len(datas[row]) for col in range(0, col_count): if row == 0:#设置表头单元格的格式 sheetwrite(row, col, datas[row][col], header_style) else: sheetwrite(row, col, datas[row][col]) wbsave(file_path)

输出的文件内容如下图：

注：以上代码在Python 3x版本测试通过。

好了，python *** 作Excel就这么！些了，简单吧

package edusjtuerplabpoi;

import javaioInputStream&ch=wwxqychain" target="_blank" class="link-baike">FileInputStream;

import javaioFileNotFoundException;

import javaioIOException;

import javaioInputStream;

import javatextSimpleDateFormat;

import javautilDate;

import javautilHashMap;

import javautilMap;

import orgapachepoihssfusermodelHSSFCell;

import orgapachepoihssfusermodelHSSFDateUtil;

import orgapachepoihssfusermodelHSSFRow;

import orgapachepoihssfusermodelHSSFSheet;

import orgapachepoihssfusermodelHSSFWorkbook;

import orgapachepoipoifsfilesystemPOIFSFileSystem;

*** 作Excel表格的功能类

public class ExcelReader {

private POIFSFileSystem fs;

private HSSFWorkbook wb;

private HSSFSheet sheet;

private HSSFRow row;

读取Excel表格表头的内容

@param InputStream

@return String 表头内容的数组

public String[] readExcelTitle(InputStream is) {

try {

fs = new POIFSFileSystem(is);

wb = new HSSFWorkbook(fs);

} catch (IOException e) {

eprintStackTrace();

}

sheet = wbgetSheetAt(0);

row = sheetgetRow(0);

// 标题总列数

int colNum = rowgetPhysicalNumberOfCells();

Systemoutprintln("colNum:" + colNum);

String[] title = new String[colNum];

for (int i = 0; i < colNum; i++) {

//title[i] = getStringCellValue(rowgetCell((short) i));

title[i] = getCellFormatValue(rowgetCell((short) i));

}

return title;

}

读取Excel数据内容

@param InputStream

@return Map 包含单元格数据内容的Map对象

public Map<Integer, String> readExcelContent(InputStream is) {

Map<Integer, String> content = new HashMap<Integer, String>();

String str = "";

try {

fs = new POIFSFileSystem(is);

wb = new HSSFWorkbook(fs);

} catch (IOException e) {

eprintStackTrace();

}

sheet = wbgetSheetAt(0);

// 得到总行数

int rowNum = sheetgetLastRowNum();

row = sheetgetRow(0);

int colNum = rowgetPhysicalNumberOfCells();

// 正文内容应该从第二行开始,第一行为表头的标题

for (int i = 1; i <= rowNum; i++) {

row = sheetgetRow(i);

int j = 0;

while (j < colNum) {

// 每个单元格的数据内容用"-"分割开，以后需要时用String类的replace()方法还原数据

// 也可以将每个单元格的数据设置到一个javabean的属性中，此时需要新建一个javabean

// str += getStringCellValue(rowgetCell((short) j))trim() +

// "-";

str += getCellFormatValue(rowgetCell((short) j))trim() + " ";

j++;

}

contentput(i, str);

str = "";

}

return content;

}

获取单元格数据内容为字符串类型的数据

@param cell Excel单元格

@return String 单元格数据内容

private String getStringCellValue(HSSFCell cell) {

String strCell = "";

switch (cellgetCellType()) {

case HSSFCellCELL_TYPE_STRING:

strCell = cellgetStringCellValue();

break;

case HSSFCellCELL_TYPE_NUMERIC:

strCell = StringvalueOf(cellgetNumericCellValue());

break;

case HSSFCellCELL_TYPE_BOOLEAN:

strCell = StringvalueOf(cellgetBooleanCellValue());

break;

case HSSFCellCELL_TYPE_BLANK:

strCell = "";

break;

default:

strCell = "";

break;

}

if (strCellequals("") || strCell == null) {

return "";

}

if (cell == null) {

return "";

}

return strCell;

}

获取单元格数据内容为日期类型的数据

@param cell

Excel单元格

@return String 单元格数据内容

private String getDateCellValue(HSSFCell cell) {

String result = "";

try {

int cellType = cellgetCellType();

if (cellType == HSSFCellCELL_TYPE_NUMERIC) {

Date date = cellgetDateCellValue();

result = (dategetYear() + 1900) + "-" + (dategetMonth() + 1)

+ "-" + dategetDate();

} else if (cellType == HSSFCellCELL_TYPE_STRING) {

String date = getStringCellValue(cell);

result = datereplaceAll("[年月]", "-")replace("日", "")trim();

} else if (cellType == HSSFCellCELL_TYPE_BLANK) {

result = "";

}

} catch (Exception e) {

Systemoutprintln("日期格式不正确!");

eprintStackTrace();

}

return result;

}

根据HSSFCell类型设置数据

@param cell

@return

private String getCellFormatValue(HSSFCell cell) {

String cellvalue = "";

if (cell != null) {

// 判断当前Cell的Type

switch (cellgetCellType()) {

// 如果当前Cell的Type为NUMERIC

case HSSFCellCELL_TYPE_NUMERIC:

case HSSFCellCELL_TYPE_FORMULA: {

// 判断当前的cell是否为Date

if (HSSFDateUtilisCellDateFormatted(cell)) {

// 如果是Date类型则，转化为Data格式

//方法1：这样子的data格式是带时分秒的：2011-10-12 0:00:00

//cellvalue = cellgetDateCellValue()toLocaleString();

//方法2：这样子的data格式是不带带时分秒的：2011-10-12

Date date = cellgetDateCellValue();

SimpleDateFormat sdf = new SimpleDateFormat("yyyy-MM-dd");

cellvalue = sdfformat(date);

}

// 如果是纯数字

else {

// 取得当前Cell的数值

cellvalue = StringvalueOf(cellgetNumericCellValue());

}

break;

}

// 如果当前Cell的Type为STRIN

case HSSFCellCELL_TYPE_STRING:

// 取得当前的Cell字符串

cellvalue = cellgetRichStringCellValue()getString();

break;

// 默认的Cell值

default:

cellvalue = " ";

}

} else {

cellvalue = "";

}

return cellvalue;

}

public static void main(String[] args) {

try {

// 对读取Excel表格标题测试

InputStream is = new FileInputStream("d:\\test2xls");

ExcelReader excelReader = new ExcelReader();

String[] title = excelReaderreadExcelTitle(is);

Systemoutprintln("获得Excel表格的标题:");

for (String s : title) {

Systemoutprint(s + " ");

}

// 对读取Excel表格内容测试

InputStream is2 = new FileInputStream("d:\\test2xls");

Map<Integer, String> map = excelReaderreadExcelContent(is2);

Systemoutprintln("获得Excel表格的内容:");

for (int i = 1; i <= mapsize(); i++) {

Systemoutprintln(mapget(i));

}

} catch (FileNotFoundException e) {

Systemoutprintln("未找到指定路径的文件!");

eprintStackTrace();

}

以上就是关于excel的vba问题，后台调用其他excel数据全部的内容，包括:excel的vba问题，后台调用其他excel数据、如何用c语言提取excel中的数据、VB 如何获得Excel的工作表数和名称等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/web/9669640.html

excel的vba问题，后台调用其他excel数据

发表评论

评论列表（0条）