excle 插入行求救 for循环里边插入数据

usernamezero 2010-01-20 01:46:37
MircosoftExcel.ApplicationClass app = new MircosoftExcel.ApplicationClass();
MircosoftExcel.Workbook workbook = null;
MircosoftExcel.Worksheet worksheet = null;

try
{

string fileName = "ExportModle.xls";
string filePath = System.AppDomain.CurrentDomain.BaseDirectory;
filePath = filePath.Substring(0, filePath.LastIndexOf("bin")) + "Orders\\";
string strPathName = filePath + fileName;
workbook = app.Workbooks.Open(strPathName, missing, missing, missing, missing, missing,
missing, missing, missing, missing, missing, missing, missing, missing, missing);
worksheet = (MircosoftExcel.Worksheet)workbook.Sheets[1];

#region 赋值　
worksheet.Cells[3, "B"] = ds.Tables[1].Rows[0]["ShortName"].ToString();
worksheet.Cells[4, "B"] = ds.Tables[1].Rows[0]["Address"].ToString();
worksheet.Cells[3, "F"] = "联系人：" + ds.Tables[1].Rows[0]["deptname"].ToString();
worksheet.Cells[3, "H"] = "联系方式：" + ds.Tables[1].Rows[0]["tel1"].ToString();
worksheet.Cells[3, "K"] = DateTime.Now.ToString("yyyy-MM-dd");

int RowIndex = 6;
//循环插入数据
for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
{

//Model,ProductNo,ProductName,EncapDiamter,EnCapLength,Length,Amount,OrdersNo
//机型 6,A 产品编号B,胶辊名称C，包胶外径D，包胶长度E，总长F，数量G，单价H，合计金额I，订单编号J，价格来源K，备注L
worksheet.Cells[RowIndex, "A"] = ds.Tables[0].Rows[i]["Model"].ToString();
worksheet.Cells[RowIndex, "B"] = ds.Tables[0].Rows[i]["ProductNo"].ToString();
worksheet.Cells[RowIndex, "C"] = ds.Tables[0].Rows[i]["ProductName"].ToString();
worksheet.Cells[RowIndex, "D"] = ds.Tables[0].Rows[i]["EncapDiamter"].ToString();
worksheet.Cells[RowIndex, "E"] = ds.Tables[0].Rows[i]["EnCapLength"].ToString();
worksheet.Cells[RowIndex, "F"] = ds.Tables[0].Rows[i]["Length"].ToString();
worksheet.Cells[RowIndex, "G"] = ds.Tables[0].Rows[i]["Amount"].ToString();
//worksheet.Cells[RowIndex, "H"] = ds.Tables[0].Rows[i][""].ToString();
//worksheet.Cells[RowIndex, "I"] = ds.Tables[0].Rows[i][""].ToString();
worksheet.Cells[RowIndex, "J"] = ds.Tables[0].Rows[i]["OrdersNo"].ToString();
RowIndex++;
}
#endregion

SaveFileDialog saveFileDialog1 = new SaveFileDialog();
//设置文件类型
saveFileDialog1.Filter = "导出Excel (*.xls)|*.xls";
//saveFileDialog1.FilterIndex = 2;
saveFileDialog1.CreatePrompt = true;
saveFileDialog1.Title = "导出文件保存路径";
//保存对话框是否记忆上次打开的目录
//saveFileDialog1.RestoreDirectory = true;

if (saveFileDialog1.ShowDialog() == DialogResult.OK)
{
//m_SaveFile = saveFileDialog1.FileName;

//获得文件路径
string localFilePath = saveFileDialog1.FileName.ToString();
//获取文件名，不带路径
string fileNameExt = localFilePath.Substring(localFilePath.LastIndexOf("\\") + 1);
//获取文件路径，不带文件名
string FilePath = localFilePath.Substring(0, localFilePath.LastIndexOf("\\"));
string newFileName = FilePath+"\\" + fileNameExt;
m_SaveFile = newFileName;

workbook.SaveAs(m_SaveFile, missing, missing, missing, missing, missing, MircosoftExcel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing);

}
#region 释放

workbook.Close(false, null, null);
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet);
worksheet = null;
workbook = null;
KillSpecialExcel(app);
//杀死进程
app = null;
#endregion
以上是我的插入行的代码　　我的Excel是有模板的的当RowIndex＝６的时候插入新行问插入新行怎么做
...全文
132 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
usernamezero 2010-01-20
  • 打赏
  • 举报
 回复
定义一个它的 MircosoftExcel.Range range，然后转换赋值就搞定了

usernamezero 2010-01-20
  • 打赏
  • 举报
 回复
自己动手丰衣足食，改成下边这个样就可以了
MircosoftExcel.Range range;
int RowIndex = 6;
//循环插入数据
for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
{
if (RowIndex > 9)
{
range = (MircosoftExcel.Range)worksheet.Rows[RowIndex, missing];
range.Insert(MircosoftExcel.XlInsertShiftDirection.xlShiftDown, missing);
}
usernamezero 2010-01-20
  • 打赏
  • 举报
 回复
先插入数据，是后加签字的这种相对于简单我想到了，可是如果模板最后边的格式很复杂就不好弄了
worksheet.Cells[1,"A"].Insert Shift:=xlDown　还有这句话不好用
Hamsic 2010-01-20
  • 打赏
  • 举报
 回复
或者用
worksheet.Cells[1,"A"].Insert Shift:=xlDown
Hamsic 2010-01-20
  • 打赏
  • 举报
 回复
[Quote=引用楼主 usernamezero 的回复:]
MircosoftExcel.ApplicationClass app = new MircosoftExcel.ApplicationClass();
            MircosoftExcel.Workbook workbook = null;
            MircosoftExcel.Worksheet worksheet = null;

            try
            {
               
                string fileName = "ExportModle.xls";
                string filePath = System.AppDomain.CurrentDomain.BaseDirectory;
                filePath = filePath.Substring(0, filePath.LastIndexOf("bin")) + "Orders\\";
                string strPathName = filePath + fileName;
                workbook = app.Workbooks.Open(strPathName, missing, missing, missing, missing, missing,
                missing, missing, missing, missing, missing, missing, missing, missing, missing);
                worksheet = (MircosoftExcel.Worksheet)workbook.Sheets[1];

                #region 赋值　
                worksheet.Cells[3, "B"] = ds.Tables[1].Rows[0]["ShortName"].ToString();
                worksheet.Cells[4, "B"] = ds.Tables[1].Rows[0]["Address"].ToString();
                worksheet.Cells[3, "F"] = "联系人：" + ds.Tables[1].Rows[0]["deptname"].ToString();
                worksheet.Cells[3, "H"] = "联系方式：" + ds.Tables[1].Rows[0]["tel1"].ToString();
                worksheet.Cells[3, "K"] = DateTime.Now.ToString("yyyy-MM-dd");

                int RowIndex = 6;
                //循环插入数据
                for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
                {
                   
                    //Model,ProductNo,ProductName,EncapDiamter,EnCapLength,Length,Amount,OrdersNo
                    //机型  6,A 产品编号B,胶辊名称C，包胶外径D，包胶长度E，总长F，数量G，单价H，合计金额I，订单编号J，价格来源K，备注L
                    worksheet.Cells[RowIndex, "A"] = ds.Tables[0].Rows[i]["Model"].ToString();
                    worksheet.Cells[RowIndex, "B"] = ds.Tables[0].Rows[i]["ProductNo"].ToString();
                    worksheet.Cells[RowIndex, "C"] = ds.Tables[0].Rows[i]["ProductName"].ToString();
                    worksheet.Cells[RowIndex, "D"] = ds.Tables[0].Rows[i]["EncapDiamter"].ToString();
                    worksheet.Cells[RowIndex, "E"] = ds.Tables[0].Rows[i]["EnCapLength"].ToString();
                    worksheet.Cells[RowIndex, "F"] = ds.Tables[0].Rows[i]["Length"].ToString();
                    worksheet.Cells[RowIndex, "G"] = ds.Tables[0].Rows[i]["Amount"].ToString();
                    //worksheet.Cells[RowIndex, "H"] = ds.Tables[0].Rows[i][""].ToString();
                    //worksheet.Cells[RowIndex, "I"] = ds.Tables[0].Rows[i][""].ToString();
                    worksheet.Cells[RowIndex, "J"] = ds.Tables[0].Rows[i]["OrdersNo"].ToString();
                    RowIndex++;
                }
                #endregion

                SaveFileDialog saveFileDialog1 = new SaveFileDialog();
                //设置文件类型
                saveFileDialog1.Filter = "导出Excel (*.xls)|*.xls";
                //saveFileDialog1.FilterIndex = 2;
                saveFileDialog1.CreatePrompt = true;
                saveFileDialog1.Title = "导出文件保存路径";
                //保存对话框是否记忆上次打开的目录 
                //saveFileDialog1.RestoreDirectory = true;

                if (saveFileDialog1.ShowDialog() == DialogResult.OK)
                {
                    //m_SaveFile = saveFileDialog1.FileName;

                    //获得文件路径 
                    string localFilePath = saveFileDialog1.FileName.ToString();
                    //获取文件名，不带路径 
                    string fileNameExt = localFilePath.Substring(localFilePath.LastIndexOf("\\") + 1);
                    //获取文件路径，不带文件名 
                    string FilePath = localFilePath.Substring(0, localFilePath.LastIndexOf("\\"));
                    string newFileName = FilePath+"\\" + fileNameExt;
                    m_SaveFile = newFileName;

                    workbook.SaveAs(m_SaveFile, missing, missing, missing, missing, missing, MircosoftExcel.XlSaveAsAccessMode.xlNoChange, missing, missing, missing, missing, missing);

                }
                #region 释放

                workbook.Close(false, null, null);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet);
                worksheet = null;
                workbook = null;
                KillSpecialExcel(app);
                //杀死进程
                app = null;
                #endregion
以上是我的插入行的代码　　我的Excel是有模板的的当RowIndex＝６的时候插入新行问插入新行怎么做
[/Quote]

先插入完成 最后在加 签字的哪行不就行了？
usernamezero 2010-01-20
  • 打赏
  • 举报
 回复
想到个最笨的方法就是当循环完成后在行的最后加上这个固定格式，可是这样写不是个好办法，有谁有插入新行的方法，网上的Range哈什么worksheet.rows[RowIndex,RowIndex] 了什么都不好使，求救
usernamezero 2010-01-20
  • 打赏
  • 举报
 回复
是，rowIndex++是自动写入行的，模板文件在第１０行的时候有个
收货人签字: 客服主管签字: 财务主管签字: 发货人签字:
这行要一直在最底下，不能覆盖了，所以在当行循环到第１０行的时候插入新行，来保持他们在最底下
lsj_zrp 2010-01-20
  • 打赏
  • 举报
 回复
你这样写，后面的会把前面的覆盖吧
worksheet.Cells[RowIndex, "A"]对应的第几行第一列
前面好像有给第一列赋值的语言
RowIndex++后就会自动向后面的行写数据进去，不用插入新行吧
vb/vb.net开发精粹(16)
listview能来竖排 数据库查询 只有几句代码，帮我看看那里错了， VB 如何添加 Excel 11 数字金字塔， 如何编写【下载论坛附件】的软件？...求VBA高手优化for循环代码 请问如何用时间数组控件在
WEB开发文档2 总结
http://blog.donews.com/lvjiyong/archive/2006/06/29/931071.aspx怎样将后台生成的在内存中的图象显示到客户端Microsoft IE WebControls下载...显示数据下载中文名文件时保存文件名乱码问题关于用ASP.net绘图的问题...
电脑硬件故障维护小全
【主板故障】是整个电脑的关键部件，在电脑起着至关重要的作用。...主板的BIOS中储存着重要的硬件数据，同时BIOS也是主板中比较脆弱的部分，极易受到破坏，一旦受损就会导致系统无法运行，出现此类故障一般是因为主板B
CSDN回帖得分大全（近两年）
√vs2005调用dll的时候Initialize()函数返回错误 [VC/MFC 基础类] 40 ylongwu 05-21 20:486 ylongwu06-28 13:42管理√为什么我创建登陆框之后，然后获取登陆框的数据时候总是出现非法操作！ [VC/MFC 界面] 40 ...
我在CSDN参与的3000个帖子
VBA不熟悉啊，请问怎么在Excel中插入删除行？ 86： xp下怎么取得我的文档的路径 87： 有谁知道，关于金山词霸音标的问题？ 88： 循环 89： 优化代码请教高手！！！ 90： 请教一个简单公式...
C#

110,539

社区成员

642,577

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • Web++
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧

+ 用AI写文章