r语言 读取xlsx文件，时间变成了43435 怎么解决？

Posted 2023-05-17

加载xlsx数据包后用read.xlsx打开.> setwd("e:/r")> library(xlsx) #加载这个数据包,先下载安装.> data<-read.xlsx(file="1.xlsx",header=T,sheetIndex=1) #打开后缀为.xlsx的excel文件,注意sheetIndex里面有个大写字母.> data X1 X231 1 232 2 243 3 254 4 265 5 276 6 28> data<-read.xlsx(file="1.xls",header=T,sheetIndex=1) #打开后缀为.xls的excel文件> data X1 X231 1 232 2 243 3 254 4 265 5 276 6 28 参考技术A WIN+R，在运行中输入CMD打开命令提示符，键入：
bcdboot.exe
（Windows8的安装盘符）:\Windows
比如:bcdboot.exe c:\Windows 参考技术B 楼主解决了吗？也遇到同样问题

MFC中怎么读取Excel文件里的每个单元格内容

//第一步：打开文件
CFile f;
CFileException e;
// 打开文件
if (!f.Open("D:\\Book1.xls", CFile::modeRead, &e))

TCHAR szError[1024];
e.GetErrorMessage(szError, 1024);
AfxMessageBox(szError);
return;

//第二步：读取版本号
// 读取版本
while (dwPos < dwLen)

nRead = f.Read((void*)&RecNo, 2);
if (RecNo == XL_BOF)

WORD Ver, Type;
f.Read((void*)&RecLen, 2);
f.Read((void*)&Ver, 2);
f.Read((void*)&Type, 2);
f.Seek(RecLen, CFile::current);
int ver = 0;
switch (Ver)

case BIFF7:
ver = 7;
break;
case BIFF8:
ver = 8;
AfxMessageBox("Biff8");
break;

int type = 0;
switch (Type)

case WORKBOOK:
type = 5;
AfxMessageBox("Workbook");
break;
case WORKSHEET:
type = 16;
AfxMessageBox("Worksheet");
break;
case CHART:
type = 32;
AfxMessageBox("Chart");
break;

break;

dwPos = f.GetPosition();

//第三步：读其它数据
f.SeekToBegin();
dwPos = f.GetPosition();
// 读表格数据
while (dwPos < dwLen)

nRead = f.Read((void*)&RecNo, 2);
switch (RecNo)

case XL_BOF:

f.Read((void*)&RecLen, 2);
AfxMessageBox("Bof");

break;
case XL_BOUNDSHEET:

DWORD temp;
BYTE visi;
BYTE type;
TCHAR name;
f.Read((void*)&RecLen, 2);
f.Read((void*)&temp, 4);
f.Read((void*)&visi, 1);
f.Read((void*)&type, 1);
f.Read((void*)&StrLen, 2);
f.Read((void*)&name, StrLen);
char buf[128];
memset(buf, 0x0, 128);
strncpy(buf, &name, StrLen);
AfxMessageBox(buf);

break;
case XL_DIMENSION:
f.Read((void*)&RecLen, 2);
f.Seek(RecLen, CFile::current);
AfxMessageBox("Dimension");
break;
case 0xE2: // INTERFACED
f.Read((void*)&RecLen, 2);
AfxMessageBox("e2");
break;
case XL_SST:
f.Read((void*)&RecLen, 2);
f.Seek(RecLen, CFile::current);
AfxMessageBox("SST");
break;
case XL_NUMBER:
f.Read((void*)&RecLen, 2);
AfxMessageBox("Number");
break;
case XL_STRING:
f.Read((void*)&RecLen, 2);
AfxMessageBox("String");
break;
case XL_RK:
f.Read((void*)&RecLen, 2);
AfxMessageBox("RK");
break;
case XL_LABEL:

f.Read((void*)&RecLen, 2);
AfxMessageBox("Label");

break;
case 0xD6:
f.Read((void*)&RecLen, 2);
AfxMessageBox("RString");
break;
case XL_EOF:
dwPos = dwLen;
AfxMessageBox("Eof");
break;
default:
nRead = f.Read((void*)&RecLen, 2);
if (nRead == 0)
dwPos = dwLen;
break;


//第四步：关闭文件
f.Close(); 参考技术A 有专门读写Excel操作的类，可以上网找下。