vba抽奖程序结果如何导出为电子表单

Question

如题，vba抽奖程序结果如何导出为电子表单，谢谢！
我做了个excel vba程序，在原始表单中有参与抽奖人员信息（共几千条，a列姓名，b列身份证号、c列手机号.。。。。。），实现七个奖项下不同奖品等级（一等奖、二等奖、三等、。。。。。）的抽奖，抽奖结果可以在用户界面显示，现在需要把抽奖结果（获奖人员信息，如姓名，身份证号，手机号等等。。。）导出为电子表单，就是另存为excel 表，a列呈现姓名，b列呈现身份证号、c列呈现手机号、以此类推。。。）请教下怎么实现？谢谢啦

Answer 1

由于不知道你的奖项生成时是存在是什么变量可数组中的
给你一个示例
建立一个新文件
dim BK as workbook
dim SHT as worksheet
set bk=workbooks.add
set sht=bk.worksheets(1)
sht.cells(1,1)="姓名"
sht.cells(1,2)="身份证号"

bk.saveas "c:\AA.xlsx"
bk.close
set sht=nothing
set bk=nothing

Answer 2

什么样的结果，结果如何呈现？追问

你好，我在excel 宏抽奖程序中设置了七个奖项，每个奖项下又有不同的奖品等级（比如一等奖，二等奖，三等。。。。。。），在用户界面点击抽奖按钮实现各个奖项的抽奖，获奖人员信息可以显示在框子中，现在需要把这些获奖人员信息导出为excel电子表单，也就是说显示抽奖结果后，可以另存为excel 电子表格，名字由用户指定。谢谢啦

追答

没有具体表格，实在不好说。只能提供思路，
既然人员信息已经在你的这个表中，那么只需
1、新建一个workbook,
2、把获奖人员信息复制新建工作簿的Sheet1中；
3、调出另存为对话框，让用户指定名称后保存。