请老师看看我想一个excel另存为csv格式问题

YANWEI82123300

ykcbf1100 发表于 2024-3-4 16:02
你不是不要第一行吗？

老师导入CSV文件由第二行开始,要第一行,因为这个CSV文件要引用到bartender的下面作为模板的数据源使用

ykcbf1100

YANWEI82123300 发表于 2024-3-4 16:01
ykcbf1100老师,您给看看如果保留CSV文件的表头,即第一行,谢谢

改好了。。。

YANWEI82123300

ykcbf1100 发表于 2024-3-4 16:06
改好了。。。

老师请帮助贴一下代码吧!我的365英文版,每次打开下载的文件都报错,不知什么原因?谢谢了

YANWEI82123300

ykcbf1100 发表于 2024-3-4 16:06
改好了。。。

每次都是这个错误,不知啥原因?谢谢

ykcbf1100

YANWEI82123300 发表于 2024-3-4 16:08
老师请帮助贴一下代码吧!我的365英文版,每次打开下载的文件都报错,不知什么原因?谢谢了

好的，我现在上传代码，要等一下，代码要审核。

1. Sub ykcbf()  '//2024.3.4
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     '  fn = "V:\Dept folder\Production\Production plan\plan\Label Print_Bartender\Wo_List_CBA"
   
5.     p = ThisWorkbook.Path & ""
   
6.     fn = p & "Wo_List_CBA"
   
7.     Sheets("WOLIST").Copy
   
8.     Set wb = ActiveWorkbook
   
9.     With wb
   
10.         .Sheets("WOLIST").DrawingObjects.Delete
    
11.         .SaveAs fn, 6
    
12.         .Close 1
    
13.     End With
    
14.     Application.DisplayAlerts = True
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

ykcbf1100

YANWEI82123300 发表于 2024-3-4 16:10
每次都是这个错误,不知啥原因?谢谢

英文版本我没用过，这个文件我这里肯定正常。
你等代码吧，我已经上传，在审核

YANWEI82123300

ykcbf1100 发表于 2024-3-4 16:13
英文版本我没用过，这个文件我这里肯定正常。
你等代码吧，我已经上传，在审核

谢谢老师不是您文件的原因!是我的office问题,整个论坛里面的例子都不能打开,以前求助过,没有解决,只能到家使用2010版本打开使用,

ykcbf1100

YANWEI82123300 发表于 2024-3-4 16:17
谢谢老师不是您文件的原因!是我的office问题,整个论坛里面的例子都不能打开,以前求助过,没有解决,只能到 ...

重装一下office系统吧。