Question

我有一个每日自动生成的报告。我需要一个代码将文件从一个目录移动到另一个目录，考虑到我需要每天使用它，并且只有一部分文件名是常量的（其余部分每天都有变化而没有定义的模式）。

我会非常有帮助，我是vba的初学者，我需要帮助，如果你需要额外的解释请问我。

非常感谢

Answer 1

请尝试以下代码：

import pandas as pd
import numpy as np
import seaborn as sns
%matplotlib inline

data=np.random.randn(1000)
label = ['A','B','C','D'] * 250

df = pd.DataFrame(
{'label': prod1,
 'data': data
})

fig, (ax1, ax2, ax3, ax4) = plt.subplots(nrows=4, sharey=True)
fig.set_size_inches(12, 16)

sns.boxplot(data=df[df['label']=='A'], y='data', ax=ax1)
sns.boxplot(data=df[df['label']=='B'], y='data', ax=ax2)
sns.boxplot(data=df[df['label']=='C'], y='data', ax=ax3)
sns.boxplot(data=df[df['label']=='D'], y='data', ax=ax4)

希望得到这个帮助。

Answer 2

试试这段代码

Sub formatchange()

    Dim objFSO As Object
    Dim objFolder As Object
    Dim objFile As Object

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("your path")

    Application.ScreenUpdating = False 'for a faster code
    For Each objFile In objFolder.Files
       If InStr(1, objFile.Name, "searched value") > 0 Then
         objFSO.MoveFile objFile, "yournewpath"
       End If
    Next

    'Clean up!
    Set objFolder = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing

    Application.ScreenUpdating = True 'turn on updatin again
End Sub

如何使用文件名的部分字符串在vba上将一个文件从一个目录移动到另一个目录？

2 个答案: