vc6 通過ole讀取excel

2021-06-03 00:59:07 字數 2171 閱讀 7144

_worksheet        m_oworksheet;     // 工作表

_workbook m_oworkbook; // 工作簿

workbooks m_oworkbooks; // 工作簿集合

worksheets m_oworksheets; // 工作表集合

range m_ocurrrange; // 使用區域

//設定為顯示

lpdispatch lpdisp = null;

colevariant covtrue((short)true);

colevariant covfalse((short)false);

colevariant covoptional((long)disp_e_paramnotfound, vt_error);

range ocurcell;

// 開啟檔案

lpdisp = m_oworkbooks.open( _t("e:\\language_kron"),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing),

_variant_t(vtmissing) );

// 獲得活動的workbook( 工作簿 )

m_oworkbook.attachdispatch( lpdisp, true );

// 獲得活動的worksheet( 工作表 )

m_oworksheet.attachdispatch( m_oworkbook.getactivesheet(), true );

// 獲得使用的區域range( 區域 )

m_ocurrrange.attachdispatch( m_oworksheet.getusedrange(), true );

// 獲得使用的行數

long lgusedrownum = 0;

m_ocurrrange.attachdispatch( m_ocurrrange.getrows(), true );

lgusedrownum = m_ocurrrange.getcount();

// 獲得使用的列數

long lgusedcolumnnum = 0;

m_ocurrrange.attachdispatch( m_ocurrrange.getcolumns(), true );

lgusedcolumnnum = m_ocurrrange.getcount();

// 讀取sheet的名稱

cstring strsheetname = m_oworksheet.getname();

//得到全部cells,此時,currrange是cells的集合

m_ocurrrange.attachdispatch( m_oworksheet.getcells(), true );

cstring

// 遍歷整個excel**

//cstringarray* arraystr;

cstring origtxt,transtxt,szhash;

origtxt=_t("");

transtxt=_t("");

int nitem=0;//for select string1 or string2

//arraystr = new cstringarray[lgusedrownum];

for ( int i = 1; i < lgusedrownum; i++ )

if(j==2)

j++;

}}

VB6通過外網連線遠端SQLSERVER2014

本文的目的是 通過外網,訪問架設在本地區域網內的sql server2014伺服器 其他版本未證實,但想來大同小異 在撰寫本文之前,我花了大量的時間在網路上查詢關於vb遠端連線sqlserver伺服器的資料。通過各種艱難摸索,終於找到了行之有效的成功連線的經驗。不敢獨享,拿來與大家共同交流。1 遠端...

es6通過Mixin模擬多繼承

這週在專案中為了實現乙個樹形圖,所以寫了乙個類,隨著功能的增加,這個類越來越多,量也就越來越多,易讀性很低,所以打算按功能將 抽離到新的檔案,就想到了類的繼承,但是一般的類都是單繼承,那麼怎麼實現多繼承呢?引入乙個概念混合模式,在修飾器的基礎上,可以實現mixin模式。所謂mixin模式,就是物件繼...

VB6通過ASP網頁實現C S模式

c s模式一般都是用winsock來相互通訊,實現雙方互動。用asp網頁來連線 不能稱之為通訊 只能c對s傳送資訊或請求一些資訊,s是不能主動來連線c,發資訊給c。一 c端 既然是要訪問asp頁,這裡有二種方式。1 api寫的訪問模組 option explicit 把以上 放到乙個模組中即可。呼叫...