Question

我在一栏中有补救票号（例如，HD0000001006530）。

我必须在每个引用自身的单元格上创建一个超链接。单击超链接将运行宏。

宏必须创建一个类型为.artask的文件，其内容如下所示并打开它。打开.artask文件将打开票据HD0000001006530以补救。

[快捷方式]
名称= HPD：HelpDesk
类型= 0
Server = remedyprd
Ticket = HD0000001006530 ＆lt; ---此值将来自excel cell

Answer 1

在macroenabled excel文件中，将此代码复制到选定的“工作表”代码窗格。

           Private Function Createfile(ByVal cellvalue As String)
            Open "c:\" & cellvalue & ".artask" For Output As #1 'your target file name and address. you may change it to the desired folder
            Print #1, "[Shortcut]"
            Print #1, "Name = HPD: HelpDesk"
            Print #1, "Type = 0"
            Print #1, "Server = remedyprd"
            Print #1, "Ticket =" & cellvalue
            Close #1
           End Function

 'EDIT BEGINS:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Dim cell As Range
 If Dir("C:\" & cellvalue & ".artask") = "" Then 'For memory optimization we should first check if the file exists or not

For Each cell In Range("A1:A" & Me.UsedRange.Rows.Count) 'Specify the Range, in that case it is from A1 to end of the column A
   cell.Select
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="c:\" & Selection.Text & ".artask", TextToDisplay:=Selection.Text

    Next cell 'Loop through cells

            Createfile (Selection.Value)
        End If
          End If

      End Sub
    'EDIT ENDS

如果您有任何问题，请告诉我。

Excel宏以创建文件并将其打开

1 个答案: