使用VBA将PDF文本复制并粘贴到Excel中,并从文本中提取项目编号,交货date和工况大小?
我有一个PDF文件,看起来像这样:
该文件包含有关供应商交货情况的信息。
我想能够使用vba自动将所有这些复制到excel中。
如果我按ctrl + a和ctrl + c这到excel,它复制并粘贴到一列。
理想情况下,我想分解这些信息,当它被粘贴到Excel中。 并将PO编号,物料编号和数量分成不同列。
此外,我想修剪项目号码并在字符“ – ”之前粘贴数字,例如“000922230 – 0006”将是“000922230”。 然后使用数字“0006”的结束位并将其粘贴到C列(这是我的案例大小)
所以最终的结果应该是这样的:
Column A (PO) Column B (Item No) Column C (Case Size) Column D (Quantity) 041120121601 000922230 6 63
请有人告诉我这是可能的吗? 我真的很抱歉,我是全新的vba,所以我只能做到我的代码的复制和粘贴到目前为止:
Sub StartAdobe() Dim AdobeApp As String Dim AdobeFile As String Dim StartAdobe AdobeApp = "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe" AdobeFile = "C:\users\richard\desktop\RDS\Richard Pay form.pdf" StartAdobe = Shell("" & AdobeApp & " " & AdobeFile & "", 1) Application.OnTime Now + TimeValue("00:00:05"), "FirstStep" End Sub Private Sub FirstStep() SendKeys ("^a") SendKeys ("^c") Application.OnTime Now + TimeValue("00:00:10"), "SecondStep" End Sub Private Sub SecondStep() AppActivate "Microsoft Excel" Range("A1").Activate SendKeys ("^v") End Sub
如果有人能指引我正确的方向或帮助我开始,我真的很感激。 还请注意,我的代码需要一个PDF文件path被列出,但是,PDF文件并不总是被保存,所以如果有一种方法来引用开放的PDF文件,而不是这样,这将是更好的。
谢谢