另存文件名

可可西里.

老师好，保存后文件名需要按照指定D1栏的号码命名，需要修改那句呢？




Sub 另存_Click()



    On Error Resume Next
   
    WName = [D1]
    Application.ScreenUpdating = False '关闭刷新
    Kill ThisWorkbook.Path & "\" & "变量工作薄名" & ".xlsx" '删除原有的工作薄
    Cells.Select '选择所有单元格
    Selection.Copy '选择复制
    Workbooks.Add '新建工作薄
    Selection.PasteSpecial Paste:=xlPasteAll '保留原格式和值
    ARR = Range("A1:L41") 'A1到L41值存为ARR数组
    Cells.ClearContents '清除所有内容
    Range("A1:L41") = ARR '释放ARR数组到A1到L41
    Sheets("打印另存").Name = "变量工作表名" '工作表重命名
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "d4" & ".xlsx" '工作薄重命名

   
End Sub

ykcbf1100

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WName   '工作薄重命名

可可西里.

ykcbf1100 发表于 2024-8-7 14:57
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & WName   '工作薄重命名

不行...
存不到

ykcbf1100

可可西里. 发表于 2024-8-7 15:25
不行...
存不到

上个附件吧。
看来没附件是解决不了的。

沈默00

附件发上来看看，

可可西里.

好的，附件如上，谢谢。

longwin

D1单元格值的/要去掉，否则作为文件名会出错
Sub test()
    wname = [D1]
    Application.ScreenUpdating = False '关闭刷新
    Set sh = ThisWorkbook.ActiveSheet
    Set wb = Workbooks.Add '新建工作薄
    sh.Copy wb.Sheets(1)
    wb.SaveAs Filename:=ThisWorkbook.Path & "\" & wname & ".xlsx"  '工作薄重命名
End Sub

ykcbf1100

可可西里. 发表于 2024-8-7 15:52
好的，附件如上，谢谢。

我发你的代码没有问题，问题出在[d1]单元格中的”/",”/"是不能作为文件名元素的，知道不？

可可西里.

longwin 发表于 2024-8-7 16:12
D1单元格值的/要去掉，否则作为文件名会出错
Sub test()
    wname = [D1]

哦，好，好的，非常感谢。

可可西里.

ykcbf1100 发表于 2024-8-7 19:01
我发你的代码没有问题，问题出在[d1]单元格中的”/",”/"是不能作为文件名元素的，知道不？

早，大哥，非常感谢，谢谢谢谢。....