QT引用Excel的功能

[rick1773]

這次的專案用到了QT引用Excel的功能，文件當然不多很難找，但還是找到了，中間過程可說是
相當曲折。
要引用外部Excel的話，就必須使用ActiveXQt的技術，首先必須要有QT commercial Edition
商業版，那是要$$的，終於找到了QT 4.1.4 commercial Edition,
但要經過編譯才能用，編譯時，需要一份License文件叫 .qt-license ,真是一個怪檔名，
xp下根本無法改，所以就進入CMD啦，直接rename掉。
用OpenSource Edition 來改成 Commercial Edition的話，需copy activeqt相關檔案。
在include及src裡的activeqt目錄下所有檔都copy到OpenSource裡。
ok,接下來要把原本的OpenSource.GPL授權檔清掉。 .qt-license則放在
C:\Documents and Settings\Administrator ,然後開始編譯。
完成後，即可進行activeXQT的引用了。
--------------------------------------------------------------------------------
在進行qmake時，不能採用原本的qmake -project指令，因為這樣產生出來的.pro檔是無法
正常使用activexqt的，主要是source檔路徑沒設，所以最好自己改成：

TEMPLATE = app
CONFIG += qaxcontainer
QTDIR_build:REQUIRES = shared
SOURCES = main.cpp
FORMS =
# install
target.path = $$[QT_DIR]/PROJECT/005
sources.files = $$SOURCES $$HEADERS $$RESOURCES $$FORMS 005.pro
sources.path = $$[QT_DIR]/PROJECT/005
INSTALLS += target sources

--------------------------------------------------------------------------------
以下是主程式範例：
/*******************************************
**
** Q t t u t o r i a l 1
**
********************************************/

#include <qapplication.h>
#include <QMainWindow>
#include <qaxobject.h>
//------------------------------------------------------------------------------
class MainWindow : public QMainWindow
{
Q_OBJECT
public:
MainWindow();

public slots:

private:

};
//------------------------------------------------------------------------------
MainWindow::MainWindow()
{
QAxObject* excel = new QAxObject( "Excel.Application", 0 );
excel->dynamicCall("SetVisible(bool)",true);
QAxObject *workbooks = excel->querySubObject( "Workbooks" );
QAxObject *workbook = workbooks->querySubObject( "Open(const QString&)",
"C:\\Qt\\4.1.4\\PROJECT\\test.xls" );
QAxObject *sheets = workbook->querySubObject( "Sheets" );
QAxObject *StatSheet = sheets->querySubObject( "Item(const QVariant&)",
QVariant(QString::fromLocal8Bit("test")) );
StatSheet->dynamicCall( "Select()" );
//
excel->dynamicCall(" SetScreenUpdating(bool)",false);

QAxObject *range = StatSheet->querySubObject( "Range(const QVariant&)", QVariant( QString("A1:A1")));
range->dynamicCall( "Clear()" );
range->dynamicCall( "SetValue(const QVariant&)", QVariant(5) ); //

excel->dynamicCall(" SetScreenUpdating(bool)",true);
//存檔
workbook->querySubObject( "SaveAs(const QString&)","C:\\Qt\\4.1.4\\PROJECT\\test1.xls" );
//退出
excel->dynamicCall( " Quit()");
}
#include "main.moc"
//------------------------------------------------------------------------------
int main( int argc,char **argv )
{
QApplication a( argc, argv );
MainWindow hello;
hello.show();
return a.exec();
}
//------------------------------------------------------------------------------
ok,這就是整個辛苦的過程，祝您好運囉!