Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求导出文件重命名代码


  共有1619人关注过本帖树形打印复制链接

主题：求导出文件重命名代码
帅哥哟，离线，有人找我吗？
tingke
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：1371 威望：0 精华：0 注册：2017/1/10 20:17:00 		求导出文件重命名代码  发帖心情 Post By：2017/8/2 20:46:00 [显示全部帖子]

比如我有一个客户，名叫G3K，希望导出名是客户名+日期，比如今天那就是G3K8-2这种

 回到顶部
帅哥哟，离线，有人找我吗？
tingke
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：1371 威望：0 精华：0 注册：2017/1/10 20:17:00 		回复：（有点甜）参考 dim str as string = ...  发帖心情 Post By：2017/8/2 22:37:00 [显示全部帖子]

Dim Book As New XLS.Book("E:\onedrive\Doosung\G3K\G3K模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If
怎么把刚才您发的那段代码加进去？加在哪里？
 回到顶部
帅哥哟，离线，有人找我吗？
tingke
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：1371 威望：0 精华：0 注册：2017/1/10 20:17:00 		回复：（有点甜）Dim Book As New XLS.Book("E:\onedr...  发帖心情 Post By：2017/8/3 1:41:00 [显示全部帖子]

非常感谢
 回到顶部
帅哥哟，离线，有人找我吗？
tingke
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：1371 威望：0 精华：0 注册：2017/1/10 20:17:00 		回复：（有点甜）Dim Book As New XLS.Book("E:\onedr...  发帖心情 Post By：2017/8/3 2:01:00 [显示全部帖子]

Dim Book As New XLS.Book("E:\onedrive\Doosung\G3K\G3K模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
dlg.FileName = G3K & format(Date.today, "M-d") & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
    Book.Save(dlg.FileName)
    Dim Proc As New Process
    Proc.File = dlg.FileName
    Proc.Start()
End If
我想直接命名成“G3K8-3”这种，可是出来名称是“管理员8-3”，修改代码后，提示G3K未定义。
 回到顶部
帅哥哟，离线，有人找我吗？
tingke
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：211 积分：1371 威望：0 精华：0 注册：2017/1/10 20:17:00 		回复：（有点甜）改成 dlg.FileName = "G3K"...  发帖心情 Post By：2017/8/3 19:23:00 [显示全部帖子]

跪拜大神，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询