我有一个每日自动生成的报告。我需要一个代码将文件从一个目录移动到另一个目录,考虑到我需要每天使用它,并且只有一部分文件名是常量的(其余部分每天都有变化而没有定义的模式)。
我会非常有帮助,我是vba的初学者,我需要帮助,如果你需要额外的解释请问我。
非常感谢
答案 0 :(得分: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)
希望得到这个帮助。
答案 1 :(得分:1)
试试这段代码
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