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

YANWEI82123300

请老师看看我想一个excel另存为csv格式后,当前文件不关闭的情况下,点击另存按钮后,文件保存为CSV格式文件,此文件不打开,只保存,并去除命令按钮.
下面的代码:
我参考了论坛里面的代码,但是另存后此CSV文件被打开了,请看看怎样做只另存不打开,谢谢


Sub save_csv()


Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="V:\Dept folder\Production\Production plan\Wo_List_CBA.csv", _
        FileFormat:=xlCSV, CreateBackup:=False

ActiveWorkbook.Save


Application.DisplayAlerts = True
End Sub

ykcbf1100

上传附件看一下。

YANWEI82123300

ykcbf1100 发表于 2024-3-1 11:01
上传附件看一下。

ykcbf1100 老师你好!我现在对这个问题,换一种方法,请看看下面的例子,我想将工作表(WOLIST)里面数据,不包括表头导出到指定文件下面的CSV文件中,并覆盖原有CSV文件内容,
谢谢

fzxba

1. Sub test0()
   
2. 
   
3.   Dim Conn As Object
   
4.   Dim SQL As String, strConn As String
   
5.   Dim strPath As String, strFile As String
   
6.   
   
7.   strPath = ThisWorkbook.Path & "\"
   
8.   strFile = "Wo_List_CBA.csv"
   
9.   If Len(Dir(strPath & strFile)) Then Kill strPath & strFile
   
10.   
    
11.   Set Conn = CreateObject("ADODB.Connection")
    
12.   strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="
    
13.   Conn.Open strConn & ThisWorkbook.FullName
    
14.   
    
15.   SQL = "SELECT * INTO [Text;CharacterSet=65001;FMT=CSV;DELIMITED;HDR=YES;Database=" & strPath & "]." & strFile & " FROM [" & ActiveSheet.Name & "$]"
    
16.   Conn.Execute SQL
    
17.   
    
18.   Conn.Close
    
19.   Set Conn = Nothing
    
20. End Sub

复制代码

fzxba

导出CSV文件.rar (26.76 KB, 下载次数: 9)

2024-3-1 12:00 上传

点击文件名下载附件

ykcbf1100

YANWEI82123300 发表于 2024-3-1 11:14
ykcbf1100 老师你好!我现在对这个问题,换一种方法,请看看下面的例子,我想将工作表(WOLIST)里面数据,不包 ...

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.1
   
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.Sheets("WOLIST")
   
10.         .Rows(1).Delete
    
11.         .DrawingObjects.Delete
    
12.     End With
    
13.     wb.SaveAs fn, 6
    
14.     wb.Close 1
    
15.     Application.DisplayAlerts = True
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "OK！"
    
18. End Sub
    
19. 
    

复制代码

YANWEI82123300

ykcbf1100 发表于 2024-3-1 12:12
参与一下。。。

ykcbf1100,老师关于这个例子有一个例子,我需要wb.Sheets("WOLIST"),带表头(即第一行保留),请帮助看如何修改这个代码,感谢!

YANWEI82123300

ykcbf1100 发表于 2024-3-1 12:12
参与一下。。。

ykcbf1100老师,您给看看如果保留CSV文件的表头,即第一行,谢谢

ykcbf1100

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

你不是不要第一行吗？