Question

VBA的问题我写了下一段代码，把excel的时间变成csv文件，但是csv文件显示出来的却是0000，求大神帮我

Format（Workbooks（BOOKNAME2）.Sheets(WSHEET2).Cells(I,8).Value,"HHMM"）
Workbooks（BOOKNAME2）.Sheets(WSHEET2).Cells(I,8).Value 这样确实出来值了，但是这样 Format（Workbooks（BOOKNAME2）.Sheets(WSHEET2).Cells(I,8).Value,"HHMM"）时间就变成0000了

Answer 1

Format(Workbooks("BOOKNAME2").Sheets("WSHEET2").Cells(I,8).Value,"HHMM"）

请确保以上文件名的工作薄已经被打开、并且WSHEET2存在、另外　I行的8列有时间相关的值。

Workbooks("BOOKNAME2")　是指　BOOKNAME2.xls 或　BOOKNAME2.xlsx的文档。
如果你是把文档名存在BOOKNAME2变量中你的写法是没问题的（不带双引号的写法）。

Sheets("WSHEET2")　是指　工作表名为WSHEET2。
如果你是把工作表名存在WSHEET2变量中你的写法是没问题的（不带双引号的写法）。

追问

。

追答

试试　DEBUG.PRINT Format(Workbooks(BOOKNAME2).Sheets(WSHEET2).Cells(I,8).Value,"YYYY-MM-DD HH:MM:SS"）
如果时分秒部分还为零就表示你取的单元格里只有年月日部分或不是日期类型。

Answer 2

是不是Workbooks（BOOKNAME2）.Sheets(WSHEET2).Cells(I,8).Value 是整数（或者只有日期，没有时间部分）