數字貨幣MFCC
A. www.mfcclub.info這是什麼網站合法嗎
你好!這是一個虛擬貨幣網站,目前已經很難進入,可能是因為不合法被封禁。
B. 高手指點,如何用MFC向Excel中寫入或者導入VBA代碼並運行
上面的程序只能實現新建Excel文件的功能,但大多數情況我們需要的是導入excel中的數據,即要打開現存的xls文件,那麼可用如下代碼:
_Application app; Workbooks books;
_Workbook book;
Worksheets sheets;
_Worksheet sheet;
LPDISPATCH lpDisp; //介面指針
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
if( !app.CreateDispatch("Excel.Application") ){
this->MessageBox("無法創建Excel應用!");
return;
}
books=app.GetWorkbooks();
lpDisp = books.Open("C:\\a.xls",covOptional,covOptional,
covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional,
covOptional, covOptional, covOptional, covOptional
);
book.AttachDispatch( lpDisp );
sheets=book.GetSheets();
sheet=sheets.GetItem(COleVariant((short)1));
range=sheet.GetRange(COleVariant("A1"),COleVariant("A1"));
COleVariant rValue;
rValue=COleVariant(range.GetValue());
rValue.ChangeType(VT_BSTR);
this->MessageBox(CString(rValue.bstrVal));
book.SetSaved(TRUE);
app.Quit();
運行上面程序,單擊Button1按鈕,會顯示出C:\a.xls文件中A1單元格中的內容。注意看以下代碼,實現了Variant數據類型轉換為CString類,這個只是一個示例,轉換較為簡單。
