VBA使用保存对话框创建带有文件名的新工作表并另存为CSV格式

时间:2017-04-12 18:13:06

标签: excel excel-vba excel-2016 vba

我的要求是我有一张包含一些数据的表格和一个必须在所述任务下执行的按钮。

任务是,一旦点击按钮,它必须要求以csv格式保存到新工作表的文件名和位置,并且必须将活动工作表中的数据复制并粘贴到新工作表和新名称中sheet应该是为CSV格式保存的文件的名称。

有人可以帮忙吗?

1 个答案:

答案 0 :(得分:1)

这应该是诀窍,编辑品味。将宏保存到新模块,然后添加一个按钮Developer Tab>插入>按钮。将按钮分配给此宏。

private void Form1_Load(object sender, EventArgs e)
{
    Load_Gender();
}

public void Load_Gender()
{
    try
    {
        string connectionString = @"Data Source=localhost;" +
      "Initial Catalog=DemoDb;Integrated Security=true; User Instance=False";

        SqlConnection connection = new lConnection(connectionString);
        SqlCommand command = new SqlCommand();
        command.Connection = connection;

        command.CommandText = "SELECT * FROM Gender";
        SqlDataAdapter sl = new SqlDataAdapter(command);

        DataSet ds = new DataSet();
        sl.Fill(ds, "Table");

        DataTable dt = ds.Tables["Table"];

        foreach (DataRow row in dt.Rows)
        {
            string id = row["Id"].ToString();
            string genderName = row["GenderName"].ToString();
        }

        // Loading RECORDS to comboBox
        for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
        {
            comboBoxGender.Items.Add(ds.Tables[0].Rows[i][0].ToString());
        }
    }
    catch()
    {
    }
}

信用到期的信用。改编自这个答案: Saving excel worksheet to CSV files with filename+worksheet name using VB