DELPHI và ứng dụng viết cho excel (1 người xem)

[geotech]

Bài viết này sẽ giới thiệu về Delphi và những ứng dụng viết cho Excel (word, ppt...)
Có lẽ nhiều bạn còn chưa biết đến ngôn ngữ LT DELPHI, đây chính là Object Pascal, tức là pascal hướng đối tượng. Hầu như các bạn đã được nghe hoặc học qua pascal. Object Pascal là ngôn ngữ hướng đối tượng mạnh, kế thừa những ưu điểm của Pascal, chặt chẽ cú pháp, trong sáng. Bạn đã bao giờ nghe Kỹ sư trưởng của Delphi là người thiết kế C# chưa?
Hiện nay có nhiều hãng phát triển ứng dụng cho Excel bằng Delphi và các thư viện lập trình delphi cho excel nữa. Mình sẽ giới thiệu dần dần với các bạn. Mình gửi kèm ứng dụng viết cho excel và word. Các bạn download về cài đặt, chú ý trong quá trình cài đặt tắt các ứng dụng của Office nhé.

 

[thuyyeu99]

Em mo DP o che do Admins roồi anh

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Outlook2000, adxxlFormsManager, Vcl.StdCtrls, Vcl.ComCtrls;

type
  TadxExcelTaskPane1 = class(TadxExcelTaskPane)
    Label1: TLabel;
    ComboBox1: TComboBox;
    TreeView1: TTreeView;
    Button1: TButton;
    procedure ComboBox1Change(Sender: TObject);
    
    //procedure IterateRoot;
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
  end;

{NOTE: The adxExcelTaskPane1 variable is intended for the exclusive use
       by the TadxXlFormsCollectionItem Designer.
       NEVER use this variable for other purposes.}
var
  adxExcelTaskPane1 : TadxExcelTaskPane1;

implementation

{$R *.DFM}

procedure TadxExcelTaskPane1.Button1Click(Sender: TObject);

var
  MyTreeNode1, MyTreeNode2: TTreeNode;

  XLApp: OleVariant;
  Sheet: OleVariant;
  WorkbookNumber: Integer;
  WorkSheetNumber: Integer;
begin
  with TreeView1.Items do
  begin
    XLApp := CreateOLEObject('Excel.Application');
 for WorkbookNumber := 1 to XLApp.Workbooks.Count do begin
  end;

 

[thuyyeu99]

Cuối cùng cũng được, đó em khai báo thiệu Unit. Cám ơn anh Tuấn nhiều nhé
Bay gio em muốn mỗi lần add Workbook moi thi tu dong chay code thi làm sao anh.
và Code cho su kien Click Treeview de lấy Item

 

[keke355992]

Chương trình BSAC của a Tuân cần phải đăng ký rùi, E đang tìm hiểu mà dùng Free, sau khi bật TaskPanel lần 2 thì bị mất hết các Conman, phải di chuyển TaskPanel mới thấy lại. @thuyyeu99 có bị như thế ko

 

[thuyyeu99]

Chương trình BSAC của a Tuân cần phải đăng ký rùi, E đang tìm hiểu mà dùng Free, sau khi bật TaskPanel lần 2 thì bị mất hết các Conman, phải di chuyển TaskPanel mới thấy lại. @thuyyeu99 có bị như thế ko

Cái đó dùng Free mà (chỉ bất tiện là chưa đăng ký thì nó hiện bảng đang ký thôi). mình chỉ dùng cái Listview thôi còn cái TaskPanel chỉ test file demo thôi. thấy hay đang nghiên cứu xem sao mà nghi bó tay quá hichic

 

[Nguyễn Duy Tuân]

Chương trình BSAC của a Tuân cần phải đăng ký rùi, E đang tìm hiểu mà dùng Free, sau khi bật TaskPanel lần 2 thì bị mất hết các Conman, phải di chuyển TaskPanel mới thấy lại. @thuyyeu99 có bị như thế ko

Liên quan đễn cập nhật màn hình. Hình như bạn chạy Office 2013,2016?
BSAC là Free, chỉ là nó hiển thị bảng thông tin thôi chứ tất cả bạn dùng bình thường.

 

[keke355992]

Liên quan đễn cập nhật màn hình. Hình như bạn chạy Office 2013,2016?
BSAC là Free, chỉ là nó hiển thị bảng thông tin thôi chứ tất cả bạn dùng bình thường.

Đúng rùi ạ. E chạy office 2013. Trong file của A có rất nhìu bản Demo, và đều bị tình trạng như thế đối với TaskPanel ạ

 

[keke355992]

Cái đó dùng Free mà (chỉ bất tiện là chưa đăng ký thì nó hiện bảng đang ký thôi). mình chỉ dùng cái Listview thôi còn cái TaskPanel chỉ test file demo thôi. thấy hay đang nghiên cứu xem sao mà nghi bó tay quá hichic

Đúng rùi, nó chỉ hiện lần đầu tiên cái bảng đăng ký khi mình chạy TaskPanel thôi, Từ lần 2 mà cùng 1 file thì sẽ không hiện, nhưng lại bị mất các Comman, Control thêm vào. Phải di chuyển mới thấy được

 

[thuyyeu99]

Có anh chị nào biết Delphi hướng dẫn giúp em với hichic
Em có khai báo biến trong unit 1; là Workbook: boolean;
Giờ qua unit 2;
Em muốn lấy giá trị của Workbook thì làm sao và em muốn chạy đoạn code trong unit 1, tu unit 2 mình phải viết làm sao

Cám ơn các anh chị quan tâm