在DELPHI+EXCEL中，怎样设置某一列的度？-CSDN论坛

⋅请问：在DELPHI+EXCEL中，如何合并两个单元格？ ⋅在DELPHI+EXCEL中，怎样设置某一列的度？ ⋅请问：如何动态创建报表？ 更多帖子 关注空间博客 WWWWA 本版专家分：51786 红花 2008年12月其他数据库开发大版内专家分月排行榜第一 2008年9月其他数据库开发大版内专家分月排行榜第一 黄花 2014年7月其他数据库开发大版内专家分月排行榜第二 2014年3月其他数据库开发大版内专家分月排行榜第二 2013年7月其他数据库开发大版内专家分月排行榜第二 2013年4月其他数据库开发大版内专家分月排行榜第二 2012年3月其他数据库开发大版内专家分月排行榜第二 2011年8月其他数据库开发大版内专家分月排行榜第二 2011年7月其他数据库开发大版内专家分月排行榜第二 2009年11月其他数据库开发大版内专家分月排行榜第二 2009年7月其他数据库开发大版内专家分月排行榜第二 2009年6月其他数据库开发大版内专家分月排行榜第二 2009年5月其他数据库开发大版内专家分月排行榜第二 2009年4月其他数据库开发大版内专家分月排行榜第二 2009年3月其他数据库开发大版内专家分月排行榜第二 2009年1月其他数据库开发大版内专家分月排行榜第二 2008年10月其他数据库开发大版内专家分月排行榜第二 2008年8月其他数据库开发大版内专家分月排行榜第二 2003年9月 Delphi大版内专家分月排行榜第二 蓝花 2014年4月其他数据库开发大版内专家分月排行榜第三 2013年10月其他数据库开发大版内专家分月排行榜第三 2013年9月其他数据库开发大版内专家分月排行榜第三 2013年6月其他数据库开发大版内专家分月排行榜第三 2012年12月其他数据库开发大版内专家分月排行榜第三 2012年11月其他数据库开发大版内专家分月排行榜第三 2012年10月其他数据库开发大版内专家分月排行榜第三 2012年9月其他数据库开发大版内专家分月排行榜第三 2012年1月其他数据库开发大版内专家分月排行榜第三 2011年11月其他数据库开发大版内专家分月排行榜第三 2011年9月其他数据库开发大版内专家分月排行榜第三 2011年6月其他数据库开发大版内专家分月排行榜第三 2011年5月其他数据库开发大版内专家分月排行榜第三 2011年4月其他数据库开发大版内专家分月排行榜第三 2011年3月其他数据库开发大版内专家分月排行榜第三 2010年11月其他数据库开发大版内专家分月排行榜第三 2010年4月其他数据库开发大版内专家分月排行榜第三 2010年1月其他数据库开发大版内专家分月排行榜第三 2009年12月其他数据库开发大版内专家分月排行榜第三 2009年2月其他数据库开发大版内专家分月排行榜第三 2008年7月其他数据库开发大版内专家分月排行榜第三 2008年6月其他数据库开发大版内专家分月排行榜第三 2008年1月其他数据库开发大版内专家分月排行榜第三 2007年12月其他数据库开发大版内专家分月排行榜第三 2003年12月 Delphi大版内专家分月排行榜第三 2003年10月 Delphi大版内专家分月排行榜第三 结帖率 100%: 在DELPHI+EXCEL中，怎样设置某一列的度？
谢谢！

0 2002-08-26 17:38:57

回复数 7 只看楼主引用举报楼主

iroi 本版专家分：1538: 看VBA，先用宏录下来，然后将VBA转换成PASCAL就可以了。

0 2002-08-26 17:47:31

只看TA 引用举报 #1 得分 0

⋅Oracle入门，希望系统学习Oracle，望指点！ ⋅在Delphi和BCB之间共享DLL的问题//TommyTong(童童) ⋅CSDN是不是又疯了？ 更多帖子 关注空间博客 墨梅无痕 本版专家分：4623: var
  ColumnRange: Variant;

begin
  ColumnRange := ExcelApplication.Columns;
  ColumnRange.Columns[1].ColumnWidth := 30;

  // More function code
end;

0 2002-08-26 17:47:31

只看TA 引用举报 #2    得分 0

⋅Oracle入门，希望系统学习Oracle，望指点！ ⋅在Delphi和BCB之间共享DLL的问题//TommyTong(童童) ⋅CSDN是不是又疯了？ 更多帖子 关注空间博客 墨梅无痕 本版专家分：4623: var
  ColumnRange: Variant;

begin
  ColumnRange := ExcelApplication.Columns;
  ColumnRange.Columns[1].ColumnWidth := 30;

  // More function code
end;

0 2002-08-26 17:49:04

只看TA 引用举报 #3    得分 10

⋅C# 调用C++写的一个DLL 出现内存泄露的问题 ⋅自定义控件的问题 --高分悬赏不够在加梅花,也来帮我看看 ⋅https使用中出现的问题 更多帖子 关注空间博客 Hs_Boy 本版专家分：14: 楼上的大虾，可以说的清楚一点么，，
我也想学习这方面的内容，
比如看VBA，怎么看，VBA是什么，具体可以解释一下么，
怎么样使用宏记录，
怎么样把VBA转换成PASCAL，
谢谢，
我的E-MAIL：john_sohu@sohu.com

0 2002-08-26 17:50:41

只看TA 引用举报 #4 得分 0

⋅Delphi 调用superobject解析Json问题 ⋅请教SQL语句 ⋅请各位大侠赐教SQL语句（关于通过报价单生成报价记录） 更多帖子 关注空间博客 JonHua 本版专家分：291: procedure TfrmWaixStockmessage.ExportToExcel(Excel, Sheet: Variant; Srow: integer);
var
  I:integer;
  Range:String;
  Year,Month,Day:Word;
begin
  DecodeDate(Date,Year,Month,Day);
  sheet.Columns[1].ColumnWidth:= 3.5;
  sheet.Columns[2].ColumnWidth:=11;
  Sheet.Columns[3].ColumnWidth:=14.5;
  Sheet.Columns[4].ColumnWidth:=3.5;
  Sheet.Columns[5].ColumnWidth:=8.5;
  Sheet.Columns[6].ColumnWidth:=17;
  Sheet.Columns[7].ColumnWidth:=12;
  Range:= Format('%d:%d', [SRow, SRow]);
  Sheet.Rows[Range].Select;
  Excel.Selection.RowHeight:=25.5;
  Range:=Format('%d:%d', [SRow + 1, SRow + 1]);
  Sheet.Rows[Range].Select;
  Excel.Selection.RowHeight:=25.5;
  Range:= Format('%d:%d', [SRow + 4, SRow + 4]);
  Sheet.Rows[Range].Select;
  Excel.Selection.RowHeight:=39;
  Range:= Format('%d:%d', [SRow + 5, SRow + 19]);
  Sheet.Rows[Range].Select;
  Excel.Selection.RowHeight:=19.5;
  Range:= Format('A%d:G%d', [SRow + 4, SRow + 19]);
  Sheet.Range[Range].Borders[9].ColorIndex:=1;
  Sheet.Range[Range].Borders[9].Weight:=3;
  Sheet.Range[Range].Borders[7].ColorIndex:=1;
  Sheet.Range[Range].Borders[7].Weight:=3;
  Sheet.Range[Range].Borders[8].ColorIndex:=1;
  Sheet.Range[Range].Borders[8].Weight:=3;
  Sheet.Range[Range].Borders[10].ColorIndex:=1;
  Sheet.Range[Range].Borders[10].Weight:=3;
  Sheet.Range[Range].Borders[12].ColorIndex:=1;
  Sheet.Range[Range].Borders[12].Weight:=2;
  Sheet.Range[Range].Borders[11].ColorIndex:=1;
  Sheet.Range[Range].Borders[11].Weight:=2;
  Range:= Format('B%d:G%d', [SRow + 20, SRow + 29]);
  Sheet.Range[Range].Borders[9].ColorIndex:=1;
  Sheet.Range[Range].Borders[9].Weight:=3;
  Sheet.Range[Range].Borders[7].ColorIndex:=1;
  Sheet.Range[Range].Borders[7].Weight:=3;
  Sheet.Range[Range].Borders[8].ColorIndex:=1;
  Sheet.Range[Range].Borders[8].Weight:=3;
  Sheet.Range[Range].Borders[10].ColorIndex:=1;
  Sheet.Range[Range].Borders[10].Weight:=3;
  Range:=Format('A%d:G%d',[SRow, SRow + 29]);
  Sheet.Range[Range].Font.Name:='楷体_GB2312';
  Sheet.Range[Range].Font.Size:=12;
  Sheet.Cells(SRow, 1):= '中川电气科技有限公司';
  Sheet.Cells[SRow, 1].Font.Size:=20;
  Sheet.Cells[SRow, 1].Font.Bold:=true;
  Sheet.Cells(SRow, 6):=IntToStr(Year)+'年'+IntToStr(Month)+'月物资采购通知单';
  Sheet.Cells[SRow, 6].Font.Name:='宋体';
  Sheet.Cells(SRow + 1, 1):='物资供应部';
  Sheet.Cells[SRow + 1, 1].Font.Size:=20;
  Sheet.Cells[SRow + 1, 1].Font.Bold:=true;
  Sheet.Cells(SRow + 1, 6):='通知单号：'+edt_TableNO.Text;
  Sheet.Cells(SRow + 2, 1):='供    货';
  Sheet.Cells(SRow + 2, 6):='计划单号：'+edt_StockTableNO.Text;
  Sheet.Cells(SRow + 3, 1):='单    位：'+edt_Server.Text;
  Sheet.Cells(SRow + 3, 6):='编    辑：'+edt_Weave.Text;
  Range:= Format('A%d:G%d',[SRow + 4, SRow + 4]);
  Sheet.Range[Range].HorizontalAlignment:=3;
  Sheet.Range[Range].VerticalAlignment:=-4108;
  Sheet.Cells(SRow + 4, 1):='序号';
  Sheet.Cells[SRow + 4, 1].WrapText:=true;
  Sheet.Cells(SRow + 4, 2):='物资名称';
  Sheet.Cells(SRow + 4, 3):='型号规格';
  Sheet.Cells(SRow + 4, 4):='单位';
  Sheet.Cells[SRow + 4, 4].WrapText:=true;
  Sheet.Cells(SRow + 4, 5):='数    量';
  Sheet.Cells(SRow + 4, 6):='备    注';
  Sheet.Cells(SRow + 4, 7):='交货时间';
  Range:= Format('A%d:A%d', [SRow + 5, SRow + 19]);
  Sheet.Range[Range].HorizontalAlignment:=3;
  frmTData.Q_MX.First;
  for i:=1 to 15 do
  with frmTdata.Q_MX do
  begin
    Sheet.Cells(SRow + 4 + i, 1):=''''+ IntToStr(i);
    Sheet.Cells(SRow + 4 + i, 2):=FieldByName('PartName').AsString;
    Sheet.Cells(SRow + 4 + i, 3):=FieldByName('PartType').AsString;
    Sheet.Cells(SRow + 4 + i, 4):=FieldByName('Unit').AsString;
    Sheet.Cells(SRow + 4 + i, 5):=FieldByName('Number').AsString;
    Sheet.Cells(SRow + 4 + i, 6):=FieldByName('Remark').AsString;
    Sheet.Cells(SRow + 4 + i, 7):=FieldByName('Date').AsString;
    Next;
    if Eof then
      Break;
  end;
  Sheet.Cells(SRow + 20, 1):='技术要求';
  Range:=Format('A%d:A%d', [SRow + 20, SRow + 29]);
  Sheet.Range[Range].Select;
  Excel.Selection.Merge;
  Excel.Selection.Borders[9].ColorIndex:=1;
  Excel.Selection.Borders[9].Weight:=3;
  Excel.Selection.Borders[7].ColorIndex:=1;
  Excel.Selection.Borders[7].Weight:=3;
  Excel.Selection.Borders[8].ColorIndex:=1;
  Excel.Selection.Borders[8].Weight:=3;
  Excel.Selection.Borders[10].ColorIndex:=1;
  Excel.Selection.Borders[10].Weight:=3;
  Sheet.Cells[SRow + 20, 1].WrapText:=true;
  Sheet.Cells[SRow + 20, 1].HorizontalAlignment:=3;
  Sheet.Cells[SRow + 20, 1].VerticalAlignment:=-4108;
  Sheet.Cells(SRow + 30, 6):='通知日期：'+IntToStr(Year)+'年'+IntToStr(Month)+'月'+IntToStr(Day)+'日';
  Sheet.Cells(SRow+30,1):='联系电话：0577-62789228';
  Sheet.Cells[SRow +21,2].HorizontalAlignment:=-4131;
  Sheet.Cells[SRow +21, 2].VerticalAlignment:=-4160;
  Range:=Format('B%d:G%d', [SRow + 20, SRow + 29]);
  Sheet.Range[Range].Select;
  Sheet.Cells(SRow+21,2):=trim(edt_Require.Text);
  Excel.Selection.Merge;
  Sheet.Cells[SRow + 21, 2].WrapText:=true;
end;
procedure TfrmWaixStockmessage.btnExcelClick(Sender: TObject);
var
  Excel,WorkBook,Sheet:OleVariant;
  Year,Month,Day:Word;
begin
  DecodeDate(Date,Year,Month,Day);
  try
    Excel:=CreateOleObject('Excel.Application');
    Excel.WorkBooks.Add;
  except
    Application.MessageBox('请确认是否已安装了 Mircorsoft Excel !','提示',48);
    abort;
  end;
  try
    SaveDialog.Title:='将外协采购通知单保存为 Excel 文档';
    SaveDialog.FileName:=IntToStr(Month)+'月外协采购通知单.xls';
    if SaveDialog.Execute then
    begin
      WorkBook:=Excel.ActiveWorkBook;
      Sheet:= WorkBook.ActiveSheet;
      ExportToExcel(Excel, Sheet, 2);
      WorkBook.SaveAs(SaveDialog.FileName);
    end;
    Excel.DisplayAlerts := false;
    Excel.Quit;
  finally
    Excel:= Unassigned;
  end;
end;

0 2002-08-26 20:04:23

只看TA 引用举报 #5    得分 10

⋅Composite UI 中发布/订阅如何使用？ ⋅如何实现 Pdf文件之间的跳转? ⋅几个基础性的小问题 更多帖子 关注空间博客 zhxfzhxf1 本版专家分：4476: thanks， JonHua(玉龙)

0 2002-08-26 23:02:01

只看TA 引用举报 #6 得分 0

⋅请问：在DELPHI+EXCEL中，如何合并两个单元格？ ⋅在DELPHI+EXCEL中，怎样设置某一列的度？ ⋅请问：如何动态创建报表？ 更多帖子 关注空间博客 WWWWA 本版专家分：51786 红花 2008年12月其他数据库开发大版内专家分月排行榜第一 2008年9月其他数据库开发大版内专家分月排行榜第一 黄花 2014年7月其他数据库开发大版内专家分月排行榜第二 2014年3月其他数据库开发大版内专家分月排行榜第二 2013年7月其他数据库开发大版内专家分月排行榜第二 2013年4月其他数据库开发大版内专家分月排行榜第二 2012年3月其他数据库开发大版内专家分月排行榜第二 2011年8月其他数据库开发大版内专家分月排行榜第二 2011年7月其他数据库开发大版内专家分月排行榜第二 2009年11月其他数据库开发大版内专家分月排行榜第二 2009年7月其他数据库开发大版内专家分月排行榜第二 2009年6月其他数据库开发大版内专家分月排行榜第二 2009年5月其他数据库开发大版内专家分月排行榜第二 2009年4月其他数据库开发大版内专家分月排行榜第二 2009年3月其他数据库开发大版内专家分月排行榜第二 2009年1月其他数据库开发大版内专家分月排行榜第二 2008年10月其他数据库开发大版内专家分月排行榜第二 2008年8月其他数据库开发大版内专家分月排行榜第二 2003年9月 Delphi大版内专家分月排行榜第二 蓝花 2014年4月其他数据库开发大版内专家分月排行榜第三 2013年10月其他数据库开发大版内专家分月排行榜第三 2013年9月其他数据库开发大版内专家分月排行榜第三 2013年6月其他数据库开发大版内专家分月排行榜第三 2012年12月其他数据库开发大版内专家分月排行榜第三 2012年11月其他数据库开发大版内专家分月排行榜第三 2012年10月其他数据库开发大版内专家分月排行榜第三 2012年9月其他数据库开发大版内专家分月排行榜第三 2012年1月其他数据库开发大版内专家分月排行榜第三 2011年11月其他数据库开发大版内专家分月排行榜第三 2011年9月其他数据库开发大版内专家分月排行榜第三 2011年6月其他数据库开发大版内专家分月排行榜第三 2011年5月其他数据库开发大版内专家分月排行榜第三 2011年4月其他数据库开发大版内专家分月排行榜第三 2011年3月其他数据库开发大版内专家分月排行榜第三 2010年11月其他数据库开发大版内专家分月排行榜第三 2010年4月其他数据库开发大版内专家分月排行榜第三 2010年1月其他数据库开发大版内专家分月排行榜第三 2009年12月其他数据库开发大版内专家分月排行榜第三 2009年2月其他数据库开发大版内专家分月排行榜第三 2008年7月其他数据库开发大版内专家分月排行榜第三 2008年6月其他数据库开发大版内专家分月排行榜第三 2008年1月其他数据库开发大版内专家分月排行榜第三 2007年12月其他数据库开发大版内专家分月排行榜第三 2003年12月 Delphi大版内专家分月排行榜第三 2003年10月 Delphi大版内专家分月排行榜第三: 谢谢！

0 2002-08-27 08:22:13

只看TA 引用举报 #7 得分 0

在DELPHI+EXCEL中，怎样设置某一列的度？ [问题点数：20分，结帖人WWWWA]