Proc Import 不能完全读取超过255个字符的单元格内容

godxh 发表于 2015-9-28 10:36
xls的方法如下

多谢，这个可以用。
请设置一个1500论坛币的回复，我来购买。

用import只是读取excel的方法之一， 有时libname更灵活，如下语句，可对xls 和 xlsx同时有效，并且很容易解决字符串被截断的问题。libname后即可像读取SAS dataset 一样打开excel....
输入的SAS code显示有问题，只好贴图

yongyitian 发表于 2015-9-28 10:41
Problem Note 46472: Character strings can be truncated at 255 or 1024 characters when importing Exce ...

多谢，好像程序的解决方法就只有dbms=xlsx

pobel 发表于 2015-9-28 10:10
我用的是9.3 32位。
9.4可以么？

因为EXCEL单元格有255个字符的长度限制，所以根据不同windows系统、office设置来判断不同的情况。最好的方法是通过中介来转换XLSX和XLS格式的文件。
下面的方法可以通过CSV格式文件为中介，进行EXCEL to SAS的转换

1. /*input*/  filename workbook "D:\downloads\test.xls";
   
2. /*output*/ libname  txtout   "D:\test\";
   
3. 
   
4. data Sheets(keep=text);
   
5.    /* gather info */
   
6.    length workbook txtout script filevar command $256;
   
7.    workbook = pathname('WORKBOOK');
   
8.    txtout   = pathname('TXTOUT');
   
9.    script   = catx('\',pathname('WORK'),'SHEETS2TXT.vbs');
   
10.    filevar  = script;
    
11. 
    
12.    /* write the script */
    
13.    file dummy1 filevar=filevar;
    
14.    put 'Const ' workbook=$quote256.;
    
15.    put 'Const ' txtout=$quote256.;
    
16.    put 'Const xlCSV = 6';
    
17. 
    
18.    put 'Set objExcel = CreateObject("Excel.Application")';
    
19.    *put 'Set objExcel = GetObject(, "Excel.Application")';
    
20.    put 'With objExcel';
    
21.    put +3 '.Visible = False';
    
22.    put +3 '.DisplayAlerts = False';
    
23.    put +3 'Set objWorkbook  = .Workbooks.Open(workbook)';
    
24.    put +3 'i = 0';
    
25.    put +3 'Set colSheets = .WorkSheets';
    
26.    put +3 'For Each objSheet In colSheets';
    
27.    put +6   'i = i + 1';
    
28.    put +6   'WScript.echo i & " " & txtout & "\" & objsheet.name & ".csv"';
    
29.    put +6   'objSheet.SaveAs txtout & "\" & objSheet.name & ".csv", xlCSV';
    
30.    put +6   'Next';
    
31.    put +3 '.Application.Quit';
    
32.    put +3 'End With';
    
33. 
    
34.    /* close the script file by opening another, not used */
    
35.    filevar = catx('\',pathname('WORK'),'DUMMY.vbs');
    
36.    file dummy1 filevar=filevar;
    
37. 
    
38.    /* look at the script, not necessary but may be useful */
    
39.    infile dummy2 filevar=script end=eof;
    
40.    do while(not eof);
    
41.       input;
    
42.       putlog _infile_;
    
43.       end;
    
44. 
    
45.    /* call the script */
    
46.    command = catx(' ','cscript',quote(strip(script)),'//nologo');
    
47.    infile dummy3 pipe filevar=command end=eof truncover;
    
48.    do while(not eof);
    
49.       input text $3000.;
    
50.       output;
    
51.       putlog _infile_;
    
52.       end;
    
53.    stop;
    
54. run;
    
55. 
    
56. 
    
57. proc import datafile="d:\test\sheet1.csv" out=outdata dbms=csv replace;
    
58. run;

复制代码

pobel 发表于 2015-9-28 10:48
多谢，这个可以用。
请设置一个1500论坛币的回复，我来购买。

购买吧。。。哈哈
Sample 1.jpg (37.67 KB, 需要: 1500 个论坛币)

2015-9-28 10:57:13 上传

需要: 1500 个论坛币  [购买]

lyfyb99 发表于 2015-9-28 10:53
用import只是读取excel的方法之一， 有时libname更灵活， ...

您好，这样读取之后，变量长度是改变了，但是值还是255个。

godxh 发表于 2015-9-28 10:57
购买吧。。。哈哈

已购买。