vb获取excel表单名（vb获取单元格内容）

本篇文章给大家谈谈vb获取Excel表单名，以及vb获取单元格内容对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。 今天给各位分享vb获取excel表单名的知识，其中也会对vb获取单元格内容进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、VB如何获取EXCEL中所有的表名
• 2、vb.net excel导入sql如何自动获取excel的sheet名？
• 3、VB 如何获得Excel的工作表数和名称？
• 4、vb 如何获取当前的工作表的名称

VB如何获取EXCEL中所有的表名

VB还是VBA？如果是VBA，就可以这样
Public Sub aa()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next i
End Sub
以上输出到当前面的第一列

vb.net excel导入sql如何自动获取excel的sheet名？

1.将excel上传到服务器
/// <summary
/// 上传文件到指定服务器文件
/// </summary
/// <param name="fileUpload".Net_FileUpload控件</param
/// <param name="mag"out 返回上传是否成功</param
/// <param name="fileName"out 返回上传到服务器上的文件名</param
/// <returns返回布尔类型。 上传成功返回true 失败false</returns
public static bool UpLoad(FileUpload fileUpload, out string mag, out string fileName)
{
mag = null;
fileName = null;
bool flag = false;
//是否允许上载
bool fileAllow = false;
//设定允许上载的扩展文件名类型
string[] allowExtensions = { ".xls", ".xlsx" };
//检查是否有(是否包含)文件案
if (fileUpload.HasFile)
{
//取得上传文件之扩展文件名，并转换成小写字母
string fileExtension = System.IO.Path.GetExtension(fileUpload.FileName).ToLower();
//检查扩展文件名是否符合限定类型
for (int i = 0; i < allowExtensions.Length; i++)
{
if (fileExtension == allowExtensions[i])
{
fileAllow = true;
}
}
//符合上传文件类型
if (fileAllow)
{
try
{
//重命名文件名
fileName = DateTime.Now.ToString("yyyyMMddhhmmss") + fileUpload.FileName;
//存储文件到文件夹
fileUpload.SaveAs(GetServerPath(fileName));
fileUpload.Dispose();
mag = "文件导入成功";
flag = true;
}
catch (Exception ex)
{
mag += ex.Message;
flag = false;
}
}
else
{
mag = "不允许上载：" + fileUpload.PostedFile.FileName + "，只能上传xls和xlsx的文件，请检查！";
flag = false;
}
}
else
{
mag = "请选择要导入的Excel文件!";
flag = false;
}
return flag;
}
调用 bool ft = ExcelImport.UpLoad(FileUpload1, out mag, out filePath);
FileUpload1为。net的上传控件
二，查询出Excel里面的所有工作薄名，根据OUT出来的存放excel的路径
/// <summary
/// 获取EXCEL文件中的所有表名(模板类型)(SheetName)
/// </summary
/// <param name="filepath"文件绝对路径</param
/// <returnsArrayList集合</returns
public static ArrayList ExcelSheetName(string filepath)
{
ArrayList al = new ArrayList();
string strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=Excel 8.0;";
OleDbConnection conn = new OleDbConnection(strConn);
try
{
conn.Open();
DataTable sheetNames = conn.GetOleDbSchemaTable
(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" });
conn.Close();
foreach (DataRow dr in sheetNames.Rows)
{
al.Add(dr[2]);
}
}
catch (Exception e)
{
Logger.Error("ExcelImport.cs 页面 ExcelSheetName", e);
}
finally
{
conn.Close();
}
return al;
}
调用 //获取导入模板所有的模板表名
ArrayList al = ExcelImport.ExcelSheetName(UpPath);
3.进行工作薄名称的对比
string sheet = null;
//进行判断是否取到想要的sheet1
bool isExists = false;
for (int i = 0; i < al.Count; i++)
{
//获取模板表名
sheet = al[i].ToString();
if (sheet.Equals("sheet1"))
{
//EXCELsheet名是sheet1
isExists = true;
}
}

VB 如何获得Excel的工作表数和名称？

是挺乱的。。
或者是
cells（x1,y1）
ts
then
ii
=
i
elseif
xlapp.cells(i,
2).value
=
ts
then
ii
=
i
这为什么不写成
elseif
xlapp.cells(i,
2).value

=ts
then
ii
=
i
你是只要查找b列=ts的行号吗？
dim
srt
as
string
dim
i
as
integer
srt
="等于ts的行号有"
for
i
=
1
to
65536
if
xlapp.cells(i,
2).value
=
ts
then
srt=
srt

","

i
end
if
next
i
msgbox
srt
没跑过。。不知道行不行。。

vb 如何获取当前的工作表的名称

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Set oExcel = CreateObject("Excel.application")
Set oBook = oExcel.workbooks.Add
Set oSheet = oBook.worksheets(1)
oSheet.Name = "新的工作表的名称" 关于vb获取excel表单名和vb获取单元格内容的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。 vb获取excel表单名的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb获取单元格内容、vb获取excel表单名的信息别忘了在本站进行查找喔。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。