怎样获取Excel的列名 找使用财务软件的好处
财务软件版1楼: if OpenDialog1.Execute then
begin
ExcelApp := CreateOleObject( ＇＇Excel.Application＇＇ );
ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
Edit1.Text:= OpenDialog1.FileName;
//i:= ExcelApp.WorkSheets.Count;
//showmessage(inttostr(i));
///////////默认第二个工作表为当前的活动表
ExcelApp.WorkSheets[2].Activate;
///////////加载过程中将界面上combobox的下拉框内容都加入进去
self.ComboBox1.Clear;
for i:= 1 to ExcelApp.WorkSheets.Count do
begin
ComboBox1.Items.Add(ExcelApp.WorkSheets[i].Name);
end;
end;
请问我用这种方式来打开Excel，怎样能够获取到Excel每一列的列名！就是获取到A，B，...,AA,,...,我现在只能获得其数量ExcelApp.ActiveSheet.UsedRange.Columns.Count
begin
ExcelApp := CreateOleObject( ＇＇Excel.Application＇＇ );
ExcelApp.WorkBooks.Open(OpenDialog1.FileName);
Edit1.Text:= OpenDialog1.FileName;
//i:= ExcelApp.WorkSheets.Count;
//showmessage(inttostr(i));
///////////默认第二个工作表为当前的活动表
ExcelApp.WorkSheets[2].Activate;
///////////加载过程中将界面上combobox的下拉框内容都加入进去
self.ComboBox1.Clear;
for i:= 1 to ExcelApp.WorkSheets.Count do
begin
ComboBox1.Items.Add(ExcelApp.WorkSheets[i].Name);
end;
end;
请问我用这种方式来打开Excel，怎样能够获取到Excel每一列的列名！就是获取到A，B，...,AA,,...,我现在只能获得其数量ExcelApp.ActiveSheet.UsedRange.Columns.Count
2楼: 急于求助，妄各位高手帮忙啊！ 如使用财务软件的好处
3楼: 列名也可以用数字来表示的
4楼: 但我要读到的是字母，请问可以吗？
5楼: 自已做一个转换函数去转就可以了吧。
6楼: 什么样的转换函数？是不是1－>A？delphi有没有自动转换的函数？
财务软件版7楼: col.ColumnName得到对应的列名
8楼: To zte_sj：能不能说得具体一点，col.ColumnName应该怎么用啊？比如说得到第二列的列名！
9楼: 在Excel进行宏录制,进行上述上个操作,然后看VBA的代码,然后转换到Delphi中
10楼: 用AdoConnection连接Excel数据库，用它的GetFields方法就可以了
联系我们
