标签: microsoft-project-vba

试图帮助我们的Project 2013用户使用一些VBA代码,我们已经找到了一个我们无法找到答案来查找是否使用VBA在我们的PWA服务器上签出Project 2013文件的答案.它们基本上有一个Projects列表,在一个Project文件中设置为任务,VBA代码循环遍历任务列表以运行FileOpenEx,执行一些更改,然后关闭它.但是,需要能够在列表中的每个项目上运行FileOpenEx之前检查项目文件是否已签出.这里有一个我想要的样本,并不是我想要的.

SelectBeginning
While ActiveCell.CellColor <> pjBlack
   fname = "<>\" & ActiveCell.Task.Name
   justname = ActiveCell.Task.Name

   On Error Resume Next
   If Application.Projects.CanCheckOut(fname) Then '<--This does not work correctly, not checking Enterprise Projects?
       FileOpenEx Name:=fname, ReadOnly=false
       'Do Some stuff
       FileCloseEx Save:=pjSave, CheckIn:=True
       FileSave
   Else
      MsgBox (justname & " can not be checked out")
   End If

   SelectCell Row:=1
Wend

如果有人有一个更好的解决方案,一个简单的方法来检查这个,或另一个解决方法,以确定是否通过VBA代码检查企业项目,请告诉我.谢谢!

我正在一个项目中工作,我必须使用Crt A + Crt C从网页复制一些文本然后我想在Excel中使用这个数据,复制的文本大约是100行,具有不同的大小让我们说在线有一个字符串200图表和下一个图表500图表.而第3个可能是20有没有办法循环剪贴板数据行并将它们复制到数组？

我添加复制的样本(在页面中制作Crt A Crt C)文本:

注意:我删除了一些行

用户名为XXXXXXXXXXXXXXXXX DashboardAnalyticsPolicyAdministration Web Insights打印视图重新开始1选择图表类型日志应用过滤器2选择时间帧自定义:9/1/2015 12:00:00 AM - 9/30/2015 12:00:00 AM 3选择过滤器添加过滤器2.4 TB 2.0 TB 879.9 GB 656.8 GB 472.0 GB 442.4 GB 242.1 GB 213.5 GB 189.3 GB 103.8 GB Office 365 - SSL绕过专业服务流媒体网站每个人互联网服务企业营销杂项网络搜索新闻和媒体社交网络URL CategoryTop 10TransactionsBytes注意:如果你粘贴这个文本到记事本,你会逐行看到它