怎么把excel转换成path

1.怎么把excel表格中的内容转换成文件夹

要用 VBA 新建，比较简单，几句代码就可以了 Excel 内按 Alt+F11 视图--代码窗口如下代码复制进去，F5运行 Sub 新建文件夹（） For i = 1 To [a65536].End(xlUp).Row Path = "D：测试" '改为实际路径，注意最后有 a = Dir(Path & Cells(i, 1), vbDirectory） '判断文件夹是否已经存在 If a = "" Then MkDir Path & Cells(i, 1) ' 处理第1列即A列 End If Next End Sub。

2.excel中,我有一个方法可以得到某文件路径,比如path = “C:test

把下面文字另存为一个vbs文件（如“转换.vbs”）--------------------------------Const xlCSV = 6Set objExcel = CreateObject("Excel.Application")Set objWorkbook = objExcel.Workbooks.Open("C:test.xls")objExcel.Displayalerts = FALSEobjExcel.Visible = TRUESet objWorksheet = objWorkbook.Worksheets("Sheet1")objWorksheet.SaveAs "F:test.csv", xlCSVobjExcel.Quit---------------------------F:test.csv这个是保存csv文件的路径。

3.如何将Excel转换成db格式

步骤1，先将csv,excel等表格的数据复制到文本文件中，如文本文件的路径为 FilePath；步骤2，执行以下代码 #include #include "sqlite3.h"#include using namespace std; char* G2U(const char* gb2312) //unicode转换成utf—8 { int len = MultiByteToWideChar(CP_ACP, 0, gb2312, -1, NULL, 0); wchar_t* wstr = new wchar_t[len+1]; memset(wstr, 0, len+1); MultiByteToWideChar(CP_ACP, 0, gb2312, -1, wstr, len); len = WideCharToMultiByte(CP_UTF8, 0, wstr, -1, NULL, 0, NULL, NULL); char* str = new char[len+1]; memset(str, 0, len+1); WideCharToMultiByte(CP_UTF8, 0, wstr, -1, str, len, NULL, NULL); if(wstr) delete[] wstr; return str; } int main() { int i,j; CStdioFile mReadFile2; CString str1; CString str[9]； //存储每一条记录截取后的值，长度可根据字段值自由定义 int MCC,MNC,LAC,PRECISION； //定义你所要插入的字段 float O_LNG,O_LAT; char *sql,*zErrMsg; sqlite3 *db; int result=sqlite3_open("*.db",&db)；//打开数据库 if (result!=0) { cout<<"数据库打开失败"<t(str1.Find（" ")）；//以tab键为标记截取不同字段 str1.Delete(0,str[i].GetLength()+1); } else { str[i]=str1；//最后一个直接复值 } } MCC=atoi(str[0]); MNC=atoi(str[1]); LAC=atoi(str[2]); O_LNG=atof(str[3]); O_LAT=atof(str[4]); PRECISION=atoi(str[5])； //转换每个字段的类型 sql=sqlite3_mprintf("INSERT INTO LOCData VALUES(%d,%d,%d,%f,%f,%d,'%s','%s','%s');",MCC,MNC,LAC,O_LNG,O_LAT,PRECISION, G2U(str[6]),G2U(str[7]),G2U(str[8])）；//构造sql语句向要表中输入内容 j++; cout<

"； }。

4.如何将Excel每一张工作表转换成单独的工作薄

这个需要使用代码来拆分比较快一些。

在你需要拆分的工作簿中新建一个模块，将下面的代码复制模块中，然后执行就行。Sub 拆分到工作簿（）Dim wk As Workbook, ss$, k%Application.Displayalerts = FalseFor Each sht In ThisWorkbook.Sheets Set wk = Workbooks.Add k = k + 1 ThisWorkbook.Sheets(k).Copy Workbooks(2).Sheets(1) ss = ThisWorkbook.Path & "" & sht.Name & ".xlsx" wk.SaveAs ss wk.CloseNextApplication.Displayalerts = TrueMsgBox "拆分工作簿完成！"End Sub。

5.怎么用BAT命令在后台将指定路径下所有EXCEL转换为指定路径下

利用vba或vb.net直接输出为PDF

核心部分代码为：

set sh=ActiveSheet

sh.ExportAsFixedFormat Type:=xlTypePDF, filename:=ThisWorkbook.Path & "" & mycell.Value, Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False,OpenAfterPublish:=False

6.excel绝对路径引用怎么改成相对路径

想了一下，您的这个代码是一次性的。

即意味着只在你本机上运行宏的时候运行一次，后面就不会运行了。

那么超链接保存下来的信息就会被固定为最初的地址。修改了一下你的代码：（主要部分注释一下便于大家的理解）Sub Workbook_Open（) '使用这个事件可以保证每次文档被打开的时候运行本宏。

Dim ws As Worksheet Dim i As Integer Dim ex As Boolean i = 1 ex = False '是否已经存在“目录”表 For Each ws In ThisWorkbook.Worksheets If ws.Name = "目录" Then ex = True Exit For End If Next If ex = False Then '如果不存在，则创建之。 ThisWorkbook.Worksheets.Add Worksheets(i).Name = "目录" End If Worksheets（"目录"）.Cells(i + 1, 1).Value = "序号" Worksheets（"目录"）.Cells(i + 1, 2).Value = "名称" For Each ws In ThisWorkbook.Worksheets If ws.Name <> "目录" Then Worksheets（"目录"）.Cells(i + 1, 1).Value = i - 1 Worksheets（"目录"）.Cells(i + 1, 2).Value = Worksheets(i).Name '其中iif语句为判断文档是否在盘符根目录下，即是否在 D：之类的下面 Worksheets（"目录"）.Hyperlinks.Add Cells(i + 1, 2), _ ThisWorkbook.Path & IIf(Right(ThisWorkbook.Path, 1) = "", "", "") & ThisWorkbook.Name, _ Worksheets(i).Name & "!A1"， _ "单击跳转到" & Worksheets(i).Name, _ Worksheets(i).Name End If i = i + 1 Next i = ThisWorkbook.Sheets.Count - 1 Worksheets（"目录"）.Range("A3:A" & i + 2).HorizontalAlignment = xlCenter '这里直接使用Range的HorizontalAlignment相关属性是为了避免当前表不是“目录”时出错。

下同。 Worksheets（"目录"）.Range("B3:B" & i + 2).HorizontalAlignment = xlGeneral Worksheets（"目录"）.Range("B3:B" & i + 2).Font.ColorIndex = 5 Worksheets（"目录"）.Range("B3:B" & i + 2).Font.Underline = xlUnderlineStyleNone Worksheets（"目录"）.Rows("2:2").Font.Bold = True Worksheets（"目录"）.Rows("2:2").HorizontalAlignment = xlCenterEnd Subps：使用此方法，需要在Excel开启VB宏，由此会带来很多安全隐患。

根据微软Office2010的设置，文件的扩展名需要变为xlsm而不是xlsx，我不知道2003和2007是否也需要这么改。如果不是特别需要，建议直接使用Excel的编辑超链接方法，里面有个链接到本文档中的位置选项。

7.怎样把excel转换为dat格式

楼主的DAT文件是晶圆测试后生成得图形数据文件哦。有意思，既然有转换的工具了为什么还要自己做哪？

'做法：

'1，全面了解DAT的文件结构，用TYPE 定义一个类型。

Type typDat '每列30字节

Dat(1 to 30) as Byte

End Type

Type typDatFile 'Dat文件结构

Operator_Name as String * 20

Device_Name as String * 17

'。自己研究文件结构

GUIDat(1 to 28) as typDat '28行

Enf Type

'2，读入文件

Dim DatFile as typDatFile '声明

Open YouPath & "1.dat" For Random As #1 Len = len(DatFile)

Get #1, 1, typDatFile '加载文件

Close #1

'3，写入EXCEL

'。引用EXCEL应用库，怎么使用CSDN大把说明

Sheet1.Rang("A1") = typDatFile.Operator_Name '写入名字

'。。省略N行 ---------回复-------------- 给楼上的作一下补充，其实那个xls并不是Excel文件，而是一个标准的文本文件，只是扩展名是xls而已，用ultraedit或者随便一个文本编辑器打开一看便知，所以就作为一个普通文本文件写入就行了，无需引用Excel库什么的。 ---------回复-------------- 谢谢两位，我试试看行不行，我的转换工具只能一片一片的。楼主的DAT文件是晶圆测试后生成得图形数据文件哦。有意思，既然有转换的工具了为什么还要自己做哪？